Merged changes from feature/scl to master.

[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / Arbitrary.scl

diff --git a/bundles/org.simantics.scl.runtime/scl/Arbitrary.scl b/bundles/org.simantics.scl.runtime/scl/Arbitrary.scl
index 17a6ec65fcd7237c2db9a7542ef65afd753bf2ac..a19f7eb5b0f0db2a9972777602d748e2b9174c58 100644 (file)
--- 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 ()