adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] implemented dock and orbit api calls

Browse source
This commit is contained in:
Julien Dessaux 2023-07-29 00:32:36 +02:00
parent 20d4381c9c
commit 961625c363
Signed by: adyxax
GPG key ID: F92E51B86E07177E
2 changed files with 35 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
haskell/app/Main.hs
View file

@ -9,6 +9,7 @@ import System.Posix.Process
import SpaceTraders
import SpaceTraders.Automation.Init
import SpaceTraders.APIClient.Errors
import SpaceTraders.APIClient.Ships
import SpaceTraders.APIClient.Systems
import SpaceTraders.Database.Agents
import SpaceTraders.Database.Contracts
@ -28,5 +29,7 @@ main = do
Left e -> throwIO e
Right s' -> print $ length s'
runSpaceTradersT getContracts env >>= print
runSpaceTradersT getShips env >>= print
ss <- runSpaceTradersT getShips env
runSpaceTradersT (dock $ head ss) env >>= print
runSpaceTradersT (orbit $ head ss) env >>= print
deinitST env