-- | Run 'W.WriterT' in the base monad
runWriterC
  :: (Monad m, Monoid w) =>
     ConduitM b o (W.WriterT w m) () -> ConduitM b o m ((), w)
runWriterC p = W.runWriterT $ distribute p
runWriterC
  :: (Monad m, Monoid w) =>
     ConduitM b o (W.WriterT w m) () -> ConduitM b o m ((), w)
runWriterC p = W.runWriterT $ distribute p
runWriterC p = W.runWriterT $ distribute p