git.iko.soy/typeable/servant
on master help sign in
Merge pull request #1068 from cocreature/monadmask

Add MonadMask instance for Handler

commit56d95ae1ea3e623753c4caae0f00314f49846b81 authorAlp Mestanogullari <alpmestan@gmail.com> dateTue 6 Nov 2018, 07:36 (8 years ago) parent3f56b8695e66fa
1 file changed+2−2
compare with master
unifiedsplit
servant-server/src/Servant/Server/Internal/Handler.hs+2−2
servant-server/src/Servant/Server/Internal/Handler.hs+2−2
@@ -11,7 +11,7 @@ import Prelude.Compat
1111import Control.Monad.Base
1212 (MonadBase (..))
1313import Control.Monad.Catch
14− (MonadCatch, MonadThrow)
14+ (MonadCatch, MonadMask, MonadThrow)
1515import Control.Monad.Error.Class
1616 (MonadError)
1717import Control.Monad.IO.Class
@@ -29,7 +29,7 @@ newtype Handler a = Handler { runHandler' :: ExceptT ServantErr IO a }
2929 deriving
3030 ( Functor, Applicative, Monad, MonadIO, Generic
3131 , MonadError ServantErr
32− , MonadThrow, MonadCatch
32+ , MonadThrow, MonadCatch, MonadMask
3333 )
3434
3535instance MonadBase IO Handler where