From 0e048f69a776fe0e06de07c748dac8a6ae41d813 Mon Sep 17 00:00:00 2001 From: Orion Kindel Date: Wed, 22 Nov 2023 09:43:58 -0600 Subject: [PATCH] fix: relax constraints on MonadKill --- src/Control.Monad.State.Async.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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