-- | Execute 'W.WriterT' in the base monad
execWriterC
  :: (Monad m, Monoid b) =>
     ConduitM b1 o (W.WriterT b m) () -> ConduitM b1 o m b
execWriterC p = fmap snd $ runWriterC p
execWriterC
  :: (Monad m, Monoid b) =>
     ConduitM b1 o (W.WriterT b m) () -> ConduitM b1 o m b
execWriterC p = fmap snd $ runWriterC p
execWriterC p = fmap snd $ runWriterC p