summaryrefslogtreecommitdiff
path: root/haskell/src/SpaceTraders/APIClient
diff options
context:
space:
mode:
authorJulien Dessaux2023-07-04 19:37:50 +0200
committerJulien Dessaux2023-07-04 19:37:50 +0200
commit78c5467c4ac39869314c686d1d026482e7b3fd8f (patch)
tree154bc89cd8f9ea87e93d7d638e41f6557daddf22 /haskell/src/SpaceTraders/APIClient
parent[haskell] Implemented contract (diff)
downloadspacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.tar.gz
spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.tar.bz2
spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.zip
[haskell] Implemented ship
Diffstat (limited to '')
-rw-r--r--haskell/src/SpaceTraders/APIClient/Agent.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/haskell/src/SpaceTraders/APIClient/Agent.hs b/haskell/src/SpaceTraders/APIClient/Agent.hs
index 6728baf..4ac550c 100644
--- a/haskell/src/SpaceTraders/APIClient/Agent.hs
+++ b/haskell/src/SpaceTraders/APIClient/Agent.hs
@@ -15,6 +15,7 @@ import Network.HTTP.Simple
import SpaceTraders.APIClient.Client
import SpaceTraders.Model.Agent
+import SpaceTraders.Model.Ship(Ship)
import SpaceTraders.Model.Contract
myAgent :: T.Text -> IO (Either APIError Agent)
@@ -26,6 +27,7 @@ data RegisterRequest = RegisterRequest { faction :: T.Text
} deriving (ToJSON, Generic, Show)
data RegisterMessage = RegisterMessage { agent :: Agent
, contract :: Contract
+ , ship :: Ship
, token :: T.Text
} deriving (FromJSON, Generic, Show)