diff options
author | Julien Dessaux | 2023-07-11 21:55:55 +0200 |
---|---|---|
committer | Julien Dessaux | 2023-07-11 21:56:35 +0200 |
commit | 7bd1c116c26d0c2147aa787b04f6e7de85d44133 (patch) | |
tree | 8d831b852eeb37a2d8e4c09062c0ed7c9b441d19 /haskell/src/SpaceTraders/APIClient/Agent.hs | |
parent | [haskell] Refactored JSON parsing code (diff) | |
download | spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.tar.gz spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.tar.bz2 spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.zip |
[haskell] Implemented pagination and systems list api call
Diffstat (limited to 'haskell/src/SpaceTraders/APIClient/Agent.hs')
-rw-r--r-- | haskell/src/SpaceTraders/APIClient/Agent.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haskell/src/SpaceTraders/APIClient/Agent.hs b/haskell/src/SpaceTraders/APIClient/Agent.hs index 865764f..7773972 100644 --- a/haskell/src/SpaceTraders/APIClient/Agent.hs +++ b/haskell/src/SpaceTraders/APIClient/Agent.hs @@ -18,7 +18,7 @@ import SpaceTraders.Model.Agent(Agent) import SpaceTraders.Model.Ship(Ship) import SpaceTraders.Model.Contract -myAgent :: T.Text -> IO (Either APIError Agent) +myAgent :: T.Text -> IO (APIResponse Agent) myAgent t = send $ setRequestPath "/v2/my/agent" $ tokenReq t @@ -31,7 +31,7 @@ data RegisterMessage = RegisterMessage { agent :: Agent , token :: T.Text } deriving (FromJSON, Generic, Show) -register :: T.Text -> T.Text -> IO (Either APIError RegisterMessage) +register :: T.Text -> T.Text -> IO (APIResponse RegisterMessage) register s f = send $ setRequestPath "/v2/register" $ setRequestMethod "POST" $ setRequestBodyJSON RegisterRequest{symbol = s, faction = f} |