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

Merge pull request #1068 from cocreature/monadmask

Browse source 
Add MonadMask instance for Handler
This commit is contained in:
Alp Mestanogullari 2018-11-06 07:36:41 +01:00 committed by GitHub
commit 56d95ae1ea
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-server/src/Servant/Server/Internal/Handler.hs
View file

@ -11,7 +11,7 @@ import Prelude.Compat
import Control.Monad.Base import Control.Monad.Base
(MonadBase (..)) (MonadBase (..))
import Control.Monad.Catch import Control.Monad.Catch
(MonadCatch, MonadThrow) (MonadCatch, MonadMask, MonadThrow)
import Control.Monad.Error.Class import Control.Monad.Error.Class
(MonadError) (MonadError)
import Control.Monad.IO.Class import Control.Monad.IO.Class
@ -29,7 +29,7 @@ newtype Handler a = Handler { runHandler' :: ExceptT ServantErr IO a }
deriving deriving
( Functor, Applicative, Monad, MonadIO, Generic ( Functor, Applicative, Monad, MonadIO, Generic
, MonadError ServantErr , MonadError ServantErr
, MonadThrow, MonadCatch , MonadThrow, MonadCatch, MonadMask
) )
instance MonadBase IO Handler where instance MonadBase IO Handler where