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