X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FArbitrary.scl;h=a19f7eb5b0f0db2a9972777602d748e2b9174c58;hp=17a6ec65fcd7237c2db9a7542ef65afd753bf2ac;hb=a8758de5bc19e5adb3f618d3038743a164f09912;hpb=12d9af17384d960b75d58c3935d2b7b46d93e87b

diff --git a/bundles/org.simantics.scl.runtime/scl/Arbitrary.scl b/bundles/org.simantics.scl.runtime/scl/Arbitrary.scl
index 17a6ec65f..a19f7eb5b 100644
--- a/bundles/org.simantics.scl.runtime/scl/Arbitrary.scl
+++ b/bundles/org.simantics.scl.runtime/scl/Arbitrary.scl
@@ -77,7 +77,7 @@ randomIdentifierCharacter = let p = randomN 100
 instance Arbitrary Character where
     arbitrary = genRandom randomCharacter
 instance CoArbitrary Character where
-    variateSeed _ seed v = seed + fromInteger (hash (showCharacter v))
+    variateSeed _ seed v = seed + fromInteger (hashCode (showCharacter v))
 
 """Generates a random string that is a valid SCL or Java identifier""" 
 arbitraryIdentifier = Gen $ \n -> string (Vector.vectorF (1+randomN (max n 1))
@@ -86,7 +86,7 @@ arbitraryIdentifier = Gen $ \n -> string (Vector.vectorF (1+randomN (max n 1))
 instance Arbitrary String where
     arbitrary = Gen $ \n -> string (Vector.vectorF (randomN (1+n)) (\_ -> randomCharacter))
 instance CoArbitrary String where
-    variateSeed _ seed v = seed + fromInteger (hash v)
+    variateSeed _ seed v = seed + fromInteger (hashCode v)
 
 instance Arbitrary () where
     arbitrary = genRandom ()