From: Hannu Niemistö <hannu.niemisto@semantum.fi>
Date: Thu, 14 Feb 2019 12:45:23 +0000 (+0200)
Subject: Automatic deriving of instances for Json
X-Git-Tag: v1.43.0~136^2~197
X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=commitdiff_plain;h=22b86b38b00d6e168a5872e70113efd5fc1d81b6;hp=22b86b38b00d6e168a5872e70113efd5fc1d81b6

Automatic deriving of instances for Json

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
---