diff options
Diffstat (limited to 'haskell/src/SpaceTraders/Model/Route.hs')
-rw-r--r-- | haskell/src/SpaceTraders/Model/Route.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/haskell/src/SpaceTraders/Model/Route.hs b/haskell/src/SpaceTraders/Model/Route.hs index 9681214..670c953 100644 --- a/haskell/src/SpaceTraders/Model/Route.hs +++ b/haskell/src/SpaceTraders/Model/Route.hs @@ -32,8 +32,8 @@ instance FromJSON RouteEndpoint where <*> o .: "x" <*> o .: "y" instance ToJSON RouteEndpoint where - toEncoding (RouteEndpoint t s ss xx yy) = pairs ( "type" .= t - <> "symbol" .= s - <> "systemSymbol" .= ss - <> "x" .= xx - <> "y" .= yy ) + toJSON (RouteEndpoint t s ss xx yy) = object [ "type" .= t + , "symbol" .= s + , "systemSymbol" .= ss + , "x" .= xx + , "y" .= yy ] |