matebeamter/src/Types/Reader.hs
2019-09-16 09:44:46 +02:00

19 lines
341 B
Haskell

module Types.Reader where
import Network.HTTP.Client (Manager)
import Servant (Handler)
import Servant.Client (ClientEnv)
import Control.Monad.Reader (ReaderT)
import Data.Text.I18n
data ReadState = ReadState
-- { rsManager :: Manager
{ rsL10n :: L10n
, rsBackend :: ClientEnv
}
type UserHandler = ReaderT ReadState Handler