From b3d57cb6adf1e3f6a8ba7cf1c1553b6fd4acb578 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 3 Jul 2023 21:29:15 +0200
Subject: [haskell] Implemented contract

---
 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 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
-- 
cgit v1.2.3