@@ -45,7 +45,7 @@ import Data.Some (Some)
4545
4646-- | A basic implementation of 'Requester'.
4747newtype RequesterT t request response m a = RequesterT { unRequesterT :: EventWriterT t (DMap (Tag (PrimState m)) request) (ReaderT (EventSelector t (WrapArg response (Tag (PrimState m)))) m) a }
48− deriving (Functor, Applicative, Monad, MonadFix, MonadIO, MonadException)
48+ deriving (Functor, Applicative, Monad, MonadFix, MonadIO, MonadException, MonadAsyncException)
4949
5050deriving instance MonadSample t m => MonadSample t (RequesterT t request response m)
5151deriving instance MonadHold t m => MonadHold t (RequesterT t request response m)