diff --git a/src/Control.Monad.State.Async.purs b/src/Control.Monad.State.Async.purs index 6488e16..dfdb1b2 100644 --- a/src/Control.Monad.State.Async.purs +++ b/src/Control.Monad.State.Async.purs @@ -289,7 +289,7 @@ instance (Parallel f m) => Parallel (AsyncStateT w s f) (AsyncStateT w s m) wher parallel a = wrap $ parallel $ unwrap a sequential a = wrap $ sequential $ unwrap a -instance (MonadError e m, MonadKill e f m) => MonadKill e f (AsyncStateT w s m) where +instance MonadKill e f m => MonadKill e f (AsyncStateT w s m) where kill e f = wrap $ kill e f instance (MonadBracket e f m) => MonadBracket e f (AsyncStateT w s m) where