haskell/src/SpaceTraders.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

{-# LANGUAGE OverloadedStrings #-}

module SpaceTraders
  ( SpaceTradersT
  , runSpaceTradersT
  , Config(..)
  , ask
  , liftIO
  ) where

import Control.Monad.IO.Class
import Control.Monad.Trans.Reader
import qualified Database.SQLite.Simple as S
import qualified Data.Text as T

type SpaceTradersT a = ReaderT Config IO a

runSpaceTradersT :: SpaceTradersT a -> Config -> IO a
runSpaceTradersT = runReaderT

data Config = Config { conn :: S.Connection
                     , token :: T.Text
                     }