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