From b3d57cb6adf1e3f6a8ba7cf1c1553b6fd4acb578 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 3 Jul 2023 21:29:15 +0200
Subject: [haskell] Implemented contract

---
 haskell/src/SpaceTraders/APIClient/Agent.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'haskell/src/SpaceTraders/APIClient/Agent.hs')

diff --git a/haskell/src/SpaceTraders/APIClient/Agent.hs b/haskell/src/SpaceTraders/APIClient/Agent.hs
index 997d1e5..6728baf 100644
--- a/haskell/src/SpaceTraders/APIClient/Agent.hs
+++ b/haskell/src/SpaceTraders/APIClient/Agent.hs
@@ -15,16 +15,18 @@ import Network.HTTP.Simple
 
 import SpaceTraders.APIClient.Client
 import SpaceTraders.Model.Agent
+import SpaceTraders.Model.Contract
 
 myAgent :: T.Text -> IO (Either APIError Agent)
 myAgent t = send $ setRequestPath "/v2/my/agent"
                  $ tokenReq t
 
-data RegisterRequest = RegisterRequest { symbol :: T.Text
-                                       , faction :: T.Text
+data RegisterRequest = RegisterRequest { faction :: T.Text
+                                       , symbol :: T.Text
                                        } deriving (ToJSON, Generic, Show)
-data RegisterMessage = RegisterMessage { token :: T.Text
-                                       , agent :: Agent
+data RegisterMessage = RegisterMessage { agent :: Agent
+                                       , contract :: Contract
+                                       , token :: T.Text
                                        } deriving (FromJSON, Generic, Show)
 
 register :: T.Text -> T.Text -> IO (Either APIError RegisterMessage)
-- 
cgit v1.2.3