summaryrefslogtreecommitdiff
path: root/haskell/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'haskell/app/Main.hs')
-rw-r--r--haskell/app/Main.hs2
1 files changed, 2 insertions, 0 deletions
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