Add MonadMask instance for Handler

2018-11-03 21:41:23 +01:00 · 2018-11-03 21:41:23 +01:00 · 95e66fa398
commit 95e66fa398
parent 58ccae1ca0
1 changed files with 2 additions and 2 deletions
--- a/servant-server/src/Servant/Server/Internal/Handler.hs
+++ b/servant-server/src/Servant/Server/Internal/Handler.hs
@ -11,7 +11,7 @@ import           Prelude.Compat
 import           Control.Monad.Base
                 (MonadBase (..))
 import           Control.Monad.Catch
-                 (MonadCatch, MonadThrow)
+                 (MonadCatch, MonadMask, MonadThrow)
 import           Control.Monad.Error.Class
                 (MonadError)
 import           Control.Monad.IO.Class
@ -29,7 +29,7 @@ newtype Handler a = Handler { runHandler' :: ExceptT ServantErr IO a }
  deriving
    ( Functor, Applicative, Monad, MonadIO, Generic
    , MonadError ServantErr
-    , MonadThrow, MonadCatch
+    , MonadThrow, MonadCatch, MonadMask
    )

 instance MonadBase IO Handler where