diff options
| author | Julien Dessaux | 2023-07-11 21:55:55 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2023-07-11 21:56:35 +0200 |
| commit | 7bd1c116c26d0c2147aa787b04f6e7de85d44133 (patch) | |
| tree | 8d831b852eeb37a2d8e4c09062c0ed7c9b441d19 /haskell/app | |
| parent | [haskell] Refactored JSON parsing code (diff) | |
| download | spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.tar.gz spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.tar.bz2 spacetraders-7bd1c116c26d0c2147aa787b04f6e7de85d44133.zip | |
[haskell] Implemented pagination and systems list api call
Diffstat (limited to '')
| -rw-r--r-- | haskell/app/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/haskell/app/Main.hs b/haskell/app/Main.hs index 76e4bef..38e6b0d 100644 --- a/haskell/app/Main.hs +++ b/haskell/app/Main.hs @@ -7,6 +7,7 @@ import qualified Database.SQLite.Simple as S import qualified Data.Text as T import SpaceTraders.APIClient.Agent +import SpaceTraders.APIClient.Systems import SpaceTraders.Database import SpaceTraders.Database.Agents import SpaceTraders.Database.Contracts @@ -19,6 +20,8 @@ main = do t <- getToken conn `catch` registerNow conn ma <- myAgent t print ma + s <- listSystems t conn + print s close conn where registerNow :: S.Connection -> SomeException -> IO (T.Text) |