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 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'haskell/src/SpaceTraders/Model/Contract.hs')

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
-- 
cgit v1.2.3