matebeamter/src/Types/Reader.hs

17 lines
277 B
Haskell
Raw Normal View History

2019-09-08 10:48:57 +00:00
module Types.Reader where
import Network.HTTP.Client (Manager)
import Servant (Handler)
import Control.Monad.Reader (ReaderT)
2019-09-08 15:27:38 +00:00
import Data.Text.I18n
2019-09-08 10:48:57 +00:00
data ReadState = ReadState
{ rsManager :: Manager
2019-09-08 15:27:38 +00:00
, rsL10n :: L10n
2019-09-08 10:48:57 +00:00
}
type UserHandler = ReaderT ReadState Handler