adyxax/spacetraders
1
0
Fork 0
Code Issues Activity

[haskell] Implemented pagination and systems list api call

Browse source
This commit is contained in:
Julien Dessaux 2023-07-11 21:55:55 +02:00
parent 8249bf432a
commit 7bd1c116c2
Signed by: adyxax
GPG key ID: F92E51B86E07177E
9 changed files with 186 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
haskell/app/Main.hs
View file

@ -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)