adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] Implemented contract

Browse source
This commit is contained in:
Julien Dessaux 2023-07-03 21:29:15 +02:00
parent a775330b4f
commit b3d57cb6ad
Signed by: adyxax
GPG key ID: F92E51B86E07177E
6 changed files with 82 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
haskell/src/SpaceTraders/APIClient/Agent.hs
View file

@ -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)