mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 12:31:52 +03:00
24 lines
823 B
Haskell
24 lines
823 B
Haskell
|
module Network.HTTP.Client.Extended
|
||
|
|
( HasHttpManagerM(..)
|
||
|
|
, module HTTP
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Control.Monad.Except
|
||
|
|
import Control.Monad.Reader
|
||
|
|
import Control.Monad.State.Strict
|
||
|
|
import Control.Monad.Writer.Strict
|
||
|
|
import Network.HTTP.Client as HTTP
|
||
|
|
|
||
|
|
|
||
|
|
class (Monad m) => HasHttpManagerM m where
|
||
|
|
askHttpManager :: m HTTP.Manager
|
||
|
|
|
||
|
|
instance (HasHttpManagerM m) => HasHttpManagerM (ExceptT e m) where
|
||
|
|
askHttpManager = lift askHttpManager
|
||
|
|
instance (HasHttpManagerM m) => HasHttpManagerM (ReaderT r m) where
|
||
|
|
askHttpManager = lift askHttpManager
|
||
|
|
instance (HasHttpManagerM m) => HasHttpManagerM (StateT s m) where
|
||
|
|
askHttpManager = lift askHttpManager
|
||
|
|
instance (Monoid w, HasHttpManagerM m) => HasHttpManagerM (WriterT w m) where
|
||
|
|
askHttpManager = lift askHttpManager
|