blob: 839e6cf65334e32af1f0af4cc25fe74c0d79dcd6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module Main (main) where
import SpaceTraders
import SpaceTraders.APIClient.Agent
import SpaceTraders.APIClient.Contracts
import SpaceTraders.APIClient.Ships
import SpaceTraders.Automation.Init
main :: IO ()
main = do
env <- initST
runSpaceTradersT main' env
deinitST env
where
main' :: SpaceTradersT ()
main' = do
-- refresh our core objects
_ <- myAgent
_ <- myContracts
(Right ships) <- myShips -- work around to fetch the initial probe
let cmdShip = head ships
(Right t) <- orbit cmdShip
liftIO $ print t
return ()
|