matebeamter/src/Types/Reader.hs

19 lines
341 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)
2019-09-16 07:44:46 +00:00
import Servant.Client (ClientEnv)
2019-09-08 10:48:57 +00:00
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
2019-09-16 07:44:46 +00:00
-- { rsManager :: Manager
{ rsL10n :: L10n
, rsBackend :: ClientEnv
2019-09-08 10:48:57 +00:00
}
type UserHandler = ReaderT ReadState Handler