adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] Implemented ship

Browse source
This commit is contained in:
Julien Dessaux 2023-07-04 19:37:50 +02:00
parent b3d57cb6ad
commit 78c5467c4a
Signed by: adyxax
GPG key ID: F92E51B86E07177E
10 changed files with 169 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
haskell/app/Main.hs
View file

@ -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