@@ -504,6 +504,10 @@ instance (MonadBase b m, schema0 ~ schema1)
504 => MonadBase b (PQ schema0 schema1 m) where
504 => MonadBase b (PQ schema0 schema1 m) where
505 liftBase = lift . liftBase
505 liftBase = lift . liftBase
507+instance (MonadIO m, schema0 ~ schema1)
508+ => MonadIO (PQ schema0 schema1 m) where
509+ liftIO = lift . liftIO
507-- | A snapshot of the state of a `PQ` computation.
511-- | A snapshot of the state of a `PQ` computation.
508type PQRun schema =
512type PQRun schema =
509 forall m x. Monad m => PQ schema schema m x -> m (K x schema)
513 forall m x. Monad m => PQ schema schema m x -> m (K x schema)