From b76382337697d180f81a8bf0da2cd978b1613aba Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 19 Jul 2023 22:04:46 +0200
Subject: [haskell] Fixed models' serialization

---
 haskell/src/SpaceTraders/Model/Contract.hs | 16 ++++++++--------
 haskell/src/SpaceTraders/Model/Route.hs    | 10 +++++-----
 haskell/src/SpaceTraders/Model/System.hs   | 12 ++++++------
 haskell/src/SpaceTraders/Model/Waypoint.hs |  8 ++++----
 4 files changed, 23 insertions(+), 23 deletions(-)

(limited to 'haskell')

diff --git a/haskell/src/SpaceTraders/Model/Contract.hs b/haskell/src/SpaceTraders/Model/Contract.hs
index 742062e..a0bebcc 100644
--- a/haskell/src/SpaceTraders/Model/Contract.hs
+++ b/haskell/src/SpaceTraders/Model/Contract.hs
@@ -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
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 ]
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 ]
diff --git a/haskell/src/SpaceTraders/Model/Waypoint.hs b/haskell/src/SpaceTraders/Model/Waypoint.hs
index d18cc11..458df21 100644
--- a/haskell/src/SpaceTraders/Model/Waypoint.hs
+++ b/haskell/src/SpaceTraders/Model/Waypoint.hs
@@ -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 ]
-- 
cgit v1.2.3