31 lines
746 B
Haskell
31 lines
746 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main (main) where
|
|
|
|
import Control.Exception
|
|
import qualified Database.SQLite.Simple as S
|
|
import qualified Data.Text as T
|
|
|
|
import SpaceTraders.APIClient.Agent
|
|
import SpaceTraders.Database
|
|
import SpaceTraders.Database.Agents
|
|
import SpaceTraders.Database.Tokens
|
|
|
|
main :: IO ()
|
|
main = do
|
|
conn <- open
|
|
t <- getToken conn `catch` registerNow conn
|
|
ma <- myAgent t
|
|
print ma
|
|
close conn
|
|
where
|
|
registerNow :: S.Connection -> SomeException -> IO (T.Text)
|
|
registerNow conn _ = do
|
|
r <- register "ADYXAX" "COSMIC"
|
|
case r of
|
|
Right r' -> do
|
|
setAgent conn $ agent r'
|
|
let t = token r'
|
|
setToken conn $ t
|
|
return t
|
|
Left e' -> throwIO e'
|