X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.data%2Fscl%2FData%2FJson.scl;h=63c51a56bf1637a3d56a90521aa74ed3c5b50522;hp=fb034cd57886311de41b4aa8253689ce957c0105;hb=a8758de5bc19e5adb3f618d3038743a164f09912;hpb=12d9af17384d960b75d58c3935d2b7b46d93e87b

diff --git a/bundles/org.simantics.scl.data/scl/Data/Json.scl b/bundles/org.simantics.scl.data/scl/Data/Json.scl
index fb034cd57..63c51a56b 100644
--- a/bundles/org.simantics.scl.data/scl/Data/Json.scl
+++ b/bundles/org.simantics.scl.data/scl/Data/Json.scl
@@ -52,8 +52,6 @@ importJava "com.fasterxml.jackson.core.JsonToken" where
     VALUE_NUMBER_INT :: JsonToken
     VALUE_STRING :: JsonToken
     VALUE_TRUE :: JsonToken
-instance Eq JsonToken where
-    (==) = Java.equals
 
 importJava "com.fasterxml.jackson.core.JsonParser" where
     data JsonParser
@@ -301,9 +299,7 @@ data Json =
 data JsonField = JsonField String Json
   
 deriving instance Show Json
-deriving instance Eq Json
 deriving instance Show JsonField
-deriving instance Eq JsonField
 
 instance Json Json where
     writeJson g (JsonString value) = writeString g value
@@ -366,7 +362,7 @@ makeTypeEqual :: a -> a -> ()
 makeTypeEqual _ _ = ()
 
 @private
-testValue :: Json a => Show a => Eq a => a -> <Proc> ()
+testValue :: Json a => Show a => a -> <Proc> ()
 testValue v1 = do
     v2 = toJsonString v1
     v3 = fromJsonString v2