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/Route.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

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