git.iko.soy/typeable/servant
on master help sign in
Add MonadMask instance for Handler
commit95e66fa398b67080a2ee2cef00bd53dfc1d5ae04 authorMoritz Kiefer <moritz.kiefer@purelyfunctional.org> dateSat 3 Nov 2018, 21:41 (8 years ago) parent58ccae1
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