From 78c5467c4ac39869314c686d1d026482e7b3fd8f Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Tue, 4 Jul 2023 19:37:50 +0200
Subject: [haskell] Implemented ship

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

(limited to 'haskell/app')

diff --git a/haskell/app/Main.hs b/haskell/app/Main.hs
index 08e412d..76e4bef 100644
--- a/haskell/app/Main.hs
+++ b/haskell/app/Main.hs
@@ -10,6 +10,7 @@ import SpaceTraders.APIClient.Agent
 import SpaceTraders.Database
 import SpaceTraders.Database.Agents
 import SpaceTraders.Database.Contracts
+import SpaceTraders.Database.Ships
 import SpaceTraders.Database.Tokens
 
 main :: IO ()
@@ -27,6 +28,7 @@ main = do
         Right r' -> do
           setAgent conn $ agent r'
           addContract conn $ contract r'
+          addShip conn $ ship r'
           let t = token r'
           setToken conn $ t
           return t
-- 
cgit v1.2.3