diff options
Diffstat (limited to 'haskell/src/SpaceTraders/Model/System.hs')
| -rw-r--r-- | haskell/src/SpaceTraders/Model/System.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/haskell/src/SpaceTraders/Model/System.hs b/haskell/src/SpaceTraders/Model/System.hs index dacd27a..0092ef5 100644 --- a/haskell/src/SpaceTraders/Model/System.hs +++ b/haskell/src/SpaceTraders/Model/System.hs @@ -29,9 +29,9 @@ instance FromJSON System where <*> o .: "y" <*> o .: "waypoints" instance ToJSON System where - toEncoding (System ss s t xx yy w) = pairs ( "sectorSymbol" .= ss - <> "symbol" .= s - <> "type" .= t - <> "x" .= xx - <> "y" .= yy - <> "waypoints" .= w ) + toJSON (System ss s t xx yy w) = object [ "sectorSymbol" .= ss + , "symbol" .= s + , "type" .= t + , "x" .= xx + , "y" .= yy + , "waypoints" .= w ] |