From 7e27a0a7eada373780a9757fd89f70d4d911d69a Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 22 Mar 2024 01:13:34 +0100
Subject: [haskell] refactoring

---
 haskell/app/Main.hs | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'haskell/app')

diff --git a/haskell/app/Main.hs b/haskell/app/Main.hs
index edd84cc..839e6cf 100644
--- a/haskell/app/Main.hs
+++ b/haskell/app/Main.hs
@@ -1,11 +1,10 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Main (main) where
 
-import SpaceTraders
-import SpaceTraders.Automation.Init
-import SpaceTraders.APIClient.Ships
-import SpaceTraders.APIClient.Systems
+import           SpaceTraders
+import           SpaceTraders.APIClient.Agent
+import           SpaceTraders.APIClient.Contracts
+import           SpaceTraders.APIClient.Ships
+import           SpaceTraders.Automation.Init
 
 main :: IO ()
 main = do
@@ -15,7 +14,11 @@ main = do
   where
     main' :: SpaceTradersT ()
     main' = do
-      _ <- initSystems
+      -- refresh our core objects
+      _ <- myAgent
+      _ <- myContracts
       (Right ships) <- myShips -- work around to fetch the initial probe
-      _ <- orbit (head ships)
+      let cmdShip = head ships
+      (Right t) <- orbit cmdShip
+      liftIO $ print t
       return ()
-- 
cgit v1.2.3