matebeamter/src/Types/Reader.hs

14 lines
232 B
Haskell

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