blob: d93116d7d5ce4b6d0bb946fb2ba6d86ca08a087e (
plain)
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
}
|