summaryrefslogtreecommitdiff
path: root/haskell/app
diff options
context:
space:
mode:
authorJulien Dessaux2023-07-11 21:55:55 +0200
committerJulien Dessaux2023-07-11 21:56:35 +0200
commit7bd1c116c26d0c2147aa787b04f6e7de85d44133 (patch)
tree8d831b852eeb37a2d8e4c09062c0ed7c9b441d19 /haskell/app
parent[haskell] Refactored JSON parsing code (diff)
downloadspacetraders-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.hs3
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)