diff options
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 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 |