summaryrefslogtreecommitdiff
path: root/haskell/app
diff options
context:
space:
mode:
Diffstat (limited to 'haskell/app')
-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 32aa908..08e412d 100644
--- a/haskell/app/Main.hs
+++ b/haskell/app/Main.hs
@@ -9,6 +9,7 @@ import qualified Data.Text as T
import SpaceTraders.APIClient.Agent
import SpaceTraders.Database
import SpaceTraders.Database.Agents
+import SpaceTraders.Database.Contracts
import SpaceTraders.Database.Tokens
main :: IO ()
@@ -25,6 +26,7 @@ main = do
case r of
Right r' -> do
setAgent conn $ agent r'
+ addContract conn $ contract r'
let t = token r'
setToken conn $ t
return t