21 lines
472 B
Haskell
21 lines
472 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main (main) where
|
|
|
|
import SpaceTraders
|
|
import SpaceTraders.Automation.Init
|
|
import SpaceTraders.APIClient.Ships
|
|
import SpaceTraders.APIClient.Systems
|
|
|
|
main :: IO ()
|
|
main = do
|
|
env <- initST
|
|
runSpaceTradersT main' env
|
|
deinitST env
|
|
where
|
|
main' :: SpaceTradersT ()
|
|
main' = do
|
|
_ <- initSystems
|
|
(Right ships) <- myShips -- work around to fetch the initial probe
|
|
_ <- orbit (head ships)
|
|
return ()
|