VALUE_NUMBER_INT :: JsonToken\r
VALUE_STRING :: JsonToken\r
VALUE_TRUE :: JsonToken\r
-instance Eq JsonToken where\r
- (==) = Java.equals\r
\r
importJava "com.fasterxml.jackson.core.JsonParser" where\r
data JsonParser\r
data JsonField = JsonField String Json\r
\r
deriving instance Show Json\r
-deriving instance Eq Json\r
deriving instance Show JsonField\r
-deriving instance Eq JsonField\r
\r
instance Json Json where\r
writeJson g (JsonString value) = writeString g value\r
makeTypeEqual _ _ = ()\r
\r
@private\r
-testValue :: Json a => Show a => Eq a => a -> <Proc> ()\r
+testValue :: Json a => Show a => a -> <Proc> ()\r
testValue v1 = do\r
v2 = toJsonString v1\r
v3 = fromJsonString v2\r