mirror of
https://github.com/monadicsystems/okapi.git
synced 2024-11-27 05:43:19 +03:00
16 lines
357 B
Haskell
16 lines
357 B
Haskell
{-# LANGUAGE OverloadedRecordDot #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module App where
|
|
|
|
import Control.Monad.Trans.Reader (ReaderT)
|
|
import qualified Database.Redis as Redis
|
|
import qualified Database.SQLite.Simple as SQLite
|
|
|
|
data Config = Config
|
|
{ redisConn :: Redis.Connection,
|
|
sqliteConn :: SQLite.Connection
|
|
}
|
|
|
|
type Context = ReaderT Config IO
|