toHandle :: MonadIO m => IO.Handle -> Folding (Of ByteString) m () -> m ()
toHandle h (Folding phi) =
  phi (\(bs :> rest) -> liftIO (B.hPut h bs) >> rest)
      join 
      (\_ -> return ())
toHandle :: MonadIO m => IO.Handle -> Folding (Of ByteString) m () -> m ()
toHandle h (Folding phi) =
  phi (\(bs :> rest) -> liftIO (B.hPut h bs) >> rest)
      join 
      (\_ -> return ())
toHandle h (Folding phi) =
  phi (\(bs :> rest) -> liftIO (B.hPut h bs) >> rest)
      join 
      (\_ -> return ())