adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] Fixed models' serialization

Browse source
This commit is contained in:
Julien Dessaux 2023-07-19 22:04:46 +02:00
parent 15a7d5bef9
commit b763823376
Signed by: adyxax
GPG key ID: F92E51B86E07177E
4 changed files with 23 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
haskell/src/SpaceTraders/Model/Contract.hs
View file

@ -34,14 +34,14 @@ instance FromJSON Contract where
<*> o .: "fulfilled"
<*> o .: "terms"
instance ToJSON Contract where
toEncoding (Contract a i ty e d fa fu te) = pairs ( "accepted" .= a
<> "id" .= i
<> "type" .= ty
<> "expiration" .= e
<> "deadlineToAccept" .= d
<> "factionSymbol" .= fa
<> "fulfilled" .= fu
<> "terms" .= te )
toJSON (Contract a i ty e d fa fu te) = object [ "accepted" .= a
, "id" .= i
, "type" .= ty
, "expiration" .= e
, "deadlineToAccept" .= d
, "factionSymbol" .= fa
, "fulfilled" .= fu
, "terms" .= te ]
data Delivery = Delivery { destinationSymbol :: T.Text
, tradeSymbol :: T.Text

10
haskell/src/SpaceTraders/Model/Route.hs
View file

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

12
haskell/src/SpaceTraders/Model/System.hs
View file

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

8
haskell/src/SpaceTraders/Model/Waypoint.hs
View file

@ -22,7 +22,7 @@ instance FromJSON Waypoint where
<*> o .: "x"
<*> o .: "y"
instance ToJSON Waypoint where
toEncoding (Waypoint s t xx yy) = pairs ( "symbol" .= s
<> "type" .= t
<> "x" .= xx
<> "y" .= yy )
toJSON (Waypoint s t xx yy) = object [ "symbol" .= s
, "type" .= t
, "x" .= xx
, "y" .= yy ]