From 961625c363193905e58221bdc895a19f9f153cce Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 29 Jul 2023 00:32:36 +0200
Subject: [haskell] implemented dock and orbit api calls

---
 haskell/app/Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'haskell/app')

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
-- 
cgit v1.2.3