summaryrefslogtreecommitdiff
path: root/haskell/app
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--haskell/app/Main.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/haskell/app/Main.hs b/haskell/app/Main.hs
index 85b07da..a7774e5 100644
--- a/haskell/app/Main.hs
+++ b/haskell/app/Main.hs
@@ -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