diff options
author | Julien Dessaux | 2023-07-16 23:31:00 +0200 |
---|---|---|
committer | Julien Dessaux | 2023-07-17 00:15:05 +0200 |
commit | e084d260ff0439f04ab62eba7229309d79ed55c4 (patch) | |
tree | e2355a9dad8123352474cb8533d625f87fdcde0d /haskell/src/SpaceTraders/APIClient/Agent.hs | |
parent | [haskell] Implemented pagination and systems list api call (diff) | |
download | spacetraders-e084d260ff0439f04ab62eba7229309d79ed55c4.tar.gz spacetraders-e084d260ff0439f04ab62eba7229309d79ed55c4.tar.bz2 spacetraders-e084d260ff0439f04ab62eba7229309d79ed55c4.zip |
[haskell] Add a SpaceTradersT and handle server reset api message
Diffstat (limited to 'haskell/src/SpaceTraders/APIClient/Agent.hs')
-rw-r--r-- | haskell/src/SpaceTraders/APIClient/Agent.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/haskell/src/SpaceTraders/APIClient/Agent.hs b/haskell/src/SpaceTraders/APIClient/Agent.hs index 7773972..023a4f4 100644 --- a/haskell/src/SpaceTraders/APIClient/Agent.hs +++ b/haskell/src/SpaceTraders/APIClient/Agent.hs @@ -13,14 +13,17 @@ import GHC.Generics import qualified Data.Text as T import Network.HTTP.Simple +import qualified SpaceTraders as ST import SpaceTraders.APIClient.Client import SpaceTraders.Model.Agent(Agent) import SpaceTraders.Model.Ship(Ship) import SpaceTraders.Model.Contract -myAgent :: T.Text -> IO (APIResponse Agent) -myAgent t = send $ setRequestPath "/v2/my/agent" - $ tokenReq t +myAgent :: ST.SpaceTradersT (APIResponse Agent) +myAgent = do + c <- ST.ask + ST.liftIO $ send $ setRequestPath "/v2/my/agent" + $ tokenReq (ST.token c) data RegisterRequest = RegisterRequest { faction :: T.Text , symbol :: T.Text |