-- | Run 'RWS.RWST' in the base monad
runRWSC
  :: (Monad m, Monoid w) =>
     r
     -> s
     -> ConduitM b o (RWS.RWST r w s m) ()
     -> ConduitM b o m ((), s, w)
runRWSC  i s p = (\b -> RWS.runRWST b i s) $ distribute p
runRWSC
  :: (Monad m, Monoid w) =>
     r
     -> s
     -> ConduitM b o (RWS.RWST r w s m) ()
     -> ConduitM b o m ((), s, w)
runRWSC  i s p = (\b -> RWS.runRWST b i s) $ distribute p
runRWSC  i s p = (\b -> RWS.runRWST b i s) $ distribute p