@@ -45,7 +45,7 @@ import Data.Some (Some)
46-- | A basic implementation of 'Requester'.
46-- | A basic implementation of 'Requester'.
47newtype 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 }
47newtype 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, MonadAsyncException)
48+ deriving (Functor, Applicative, Monad, MonadFix, MonadIO, MonadException)
50deriving instance MonadSample t m => MonadSample t (RequesterT t request response m)
50deriving instance MonadSample t m => MonadSample t (RequesterT t request response m)
51deriving instance MonadHold t m => MonadHold t (RequesterT t request response m)
51deriving instance MonadHold t m => MonadHold t (RequesterT t request response m)