]> gerrit.simantics Code Review - simantics/platform.git/commitdiff
Automatic deriving of instances for Json 51/2651/1
authorHannu Niemistö <hannu.niemisto@semantum.fi>
Thu, 14 Feb 2019 12:45:23 +0000 (14:45 +0200)
committerHannu Niemistö <hannu.niemisto@semantum.fi>
Thu, 14 Feb 2019 12:45:23 +0000 (14:45 +0200)
Example:

data GeographicalLocation = GeographicalLocation {
    latitude :: Double,
    longitude :: Maybe Double
}

deriving instance Json GeographicalLocation

testIt :: <Proc> ()
testIt = do
    print $ toJsonString GeographicalLocation {
        latitude = 1,
        longitude = Just 2 }
    print (fromJsonString
        "{ \"latitude\": 1, \"longitude\": 2 }"
        :: GeographicalLocation)
    print $ toJsonString GeographicalLocation {
        latitude = 1,
        longitude = Nothing }
    print (fromJsonString
        "{ \"latitude\": 1 }"
        :: GeographicalLocation)

#256

Change-Id: I7f44b65472436779045e4d15871858d14132dff9


No differences found