diff options
Diffstat (limited to 'haskell/src/SpaceTraders.hs')
-rw-r--r-- | haskell/src/SpaceTraders.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/haskell/src/SpaceTraders.hs b/haskell/src/SpaceTraders.hs new file mode 100644 index 0000000..d93116d --- /dev/null +++ b/haskell/src/SpaceTraders.hs @@ -0,0 +1,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 + } |