matebeamter/src/Types/Reader.hs
2019-09-08 17:27:38 +02:00

17 lines
277 B
Haskell

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