From 24f6c8eb90555b81a96b142fec8057b05d334035 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 20 Jul 2023 00:24:31 +0200
Subject: [haskell] Finalized the agent initialization, refresh and reset

---
 haskell/src/SpaceTraders/Automation/Init.hs | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'haskell/src/SpaceTraders/Automation')

diff --git a/haskell/src/SpaceTraders/Automation/Init.hs b/haskell/src/SpaceTraders/Automation/Init.hs
index 2e9d8bb..feeb54b 100644
--- a/haskell/src/SpaceTraders/Automation/Init.hs
+++ b/haskell/src/SpaceTraders/Automation/Init.hs
@@ -14,10 +14,12 @@ import System.Directory
 import SpaceTraders
 import SpaceTraders.APIClient.Agent
 import SpaceTraders.APIClient.Client
+import SpaceTraders.APIClient.Contracts
+import SpaceTraders.APIClient.Errors
+import SpaceTraders.APIClient.Ships
 import SpaceTraders.Database
 import SpaceTraders.Database.Agents
 import SpaceTraders.Database.Contracts
-import SpaceTraders.Database.Ships
 import SpaceTraders.Database.Tokens
 
 deinitST :: Env -> IO ()
@@ -29,11 +31,17 @@ initST = do
   conn <- open
   t <- runReaderT getToken conn `catch` handleNoToken conn
   let env = Env conn (tokenReq t)
-  ma <- runSpaceTradersT myAgent env
-  case ma of
+  ma <- runReaderT getAgent conn -- We compare the agent state in the database
+  ma' <- runSpaceTradersT myAgent env -- with the one on the servers
+  case ma' of
     Left (APIResetHappened _) -> wipe conn
     Left e -> throwIO e
-    _ -> return $ env
+    Right ma'' -> do
+      when (ma /= ma'') $ do
+        _ <- runReaderT myContracts env -- refresh contracts
+        _ <- runReaderT myShips env -- refresh ships
+        runReaderT (setAgent ma'') conn -- store the fresh agent state
+      return $ env
   where
     handleNoToken :: S.Connection -> SomeException -> IO T.Text
     handleNoToken conn _ = runReaderT registerST (Env conn defaultReq)
@@ -45,7 +53,7 @@ registerST = do
     Right r' -> do
       addAgent $ agent r'
       addContract $ contract r'
-      addShip $ ship r'
+      _ <- myShips -- in order to fetch the starting probe that is not advertised in the register message
       let t = token r'
       addToken t
       return t
-- 
cgit v1.2.3