blob: e22988cafdf12bb40651b1c48d44fe64c944d8c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Control.Exception
import SpaceTraders
import SpaceTraders.Automation.Init
import SpaceTraders.APIClient.Agent(myAgent)
import SpaceTraders.APIClient.Systems
main :: IO ()
main = do
config <- initST
ma <- runSpaceTradersT myAgent config
print ma
s <- listSystems (token config) (conn config)
case s of
Left e -> throwIO e
Right s' -> print $ length s'
deinitST config
|