diff options
| author | Julien Dessaux | 2023-07-04 19:37:50 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-04 19:37:50 +0200 |
| commit | 78c5467c4ac39869314c686d1d026482e7b3fd8f (patch) | |
| tree | 154bc89cd8f9ea87e93d7d638e41f6557daddf22 /haskell/app | |
| parent | [haskell] Implemented contract (diff) | |
| download | spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.tar.gz spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.tar.bz2 spacetraders-78c5467c4ac39869314c686d1d026482e7b3fd8f.zip | |
[haskell] Implemented ship
Diffstat (limited to 'haskell/app')
| -rw-r--r-- | haskell/app/Main.hs | 2 |
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 |