From 20d4381c9c9f3f64feafc246d12dc546542e5e84 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 27 Jul 2023 23:29:28 +0200
Subject: [haskell] implemented ships's availability tracking in the database

---
 haskell/src/SpaceTraders/Automation/Init.hs | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/haskell/src/SpaceTraders/Automation/Init.hs b/haskell/src/SpaceTraders/Automation/Init.hs
index 5c70a1d..42c19e1 100644
--- a/haskell/src/SpaceTraders/Automation/Init.hs
+++ b/haskell/src/SpaceTraders/Automation/Init.hs
@@ -20,6 +20,7 @@ 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 ()
@@ -53,6 +54,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
-- 
cgit v1.2.3