eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Derive MonadMask for ClientM (#1572)

Browse source
This commit is contained in:
Shea Levy 2022-03-26 12:03:01 -04:00 committed by GitHub
parent 65de6f701c
commit 658585a7cd
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-client/src/Servant/Client/Internal/HttpClient.hs
View file

@ -24,7 +24,7 @@ import Control.Monad
import Control.Monad.Base
(MonadBase (..))
import Control.Monad.Catch
(MonadCatch, MonadThrow)
(MonadCatch, MonadThrow, MonadMask)
import Control.Monad.Error.Class
(MonadError (..))
import Control.Monad.IO.Class
@ -136,7 +136,7 @@ newtype ClientM a = ClientM
{ unClientM :: ReaderT ClientEnv (ExceptT ClientError IO) a }
deriving ( Functor, Applicative, Monad, MonadIO, Generic
, MonadReader ClientEnv, MonadError ClientError, MonadThrow
, MonadCatch)
, MonadCatch, MonadMask)
instance MonadBase IO ClientM where
liftBase = ClientM . liftBase