diff options
| author | Julien Dessaux | 2023-07-03 21:29:15 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-03 21:29:15 +0200 |
| commit | b3d57cb6adf1e3f6a8ba7cf1c1553b6fd4acb578 (patch) | |
| tree | 8f596ee49ad84f320d5950fe5690bee335f930be /haskell/app | |
| parent | Bootstrapped my haskell client (diff) | |
| download | spacetraders-b3d57cb6adf1e3f6a8ba7cf1c1553b6fd4acb578.tar.gz spacetraders-b3d57cb6adf1e3f6a8ba7cf1c1553b6fd4acb578.tar.bz2 spacetraders-b3d57cb6adf1e3f6a8ba7cf1c1553b6fd4acb578.zip | |
[haskell] Implemented contract
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 |