From 7bd1c116c26d0c2147aa787b04f6e7de85d44133 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Tue, 11 Jul 2023 21:55:55 +0200
Subject: [haskell] Implemented pagination and systems list api call

---
 haskell/app/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'haskell/app')

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