diff options
| author | Julien Dessaux | 2023-07-04 19:37:50 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-04 19:37:50 +0200 |
| commit | 78c5467c4ac39869314c686d1d026482e7b3fd8f (patch) | |
| tree | 154bc89cd8f9ea87e93d7d638e41f6557daddf22 /haskell/src/SpaceTraders/APIClient | |
| parent | [haskell] Implemented contract (diff) | |
| download | spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.tar.gz spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.tar.bz2 spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.zip | |
[haskell] Implemented ship
Diffstat (limited to '')
| -rw-r--r-- | haskell/src/SpaceTraders/APIClient/Agent.hs | 2 |
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) |