snoyberg/conduit — pull request #34 by dave4420 (2012-04-07 15:16:58+00:00)
Title: Data.Conduit.List.zipSinks

zipSinks :: Monad m => Sink i m r -> Sink i m r' -> Sink i m (r, r')

> Combines two sinks. The new sink will complete when both input sinks have completed.
>
> Any left over input is discarded.

I am not entirely happy with my treatment of left over input. I don't know how to deal with the case where both sinks finish on the same chunk of input, and both provide a differently-sized chunk of left over input.