21 lines
458 B
Haskell
21 lines
458 B
Haskell
{-# 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
|