I've used zipSinks :: Monad m => Sink i m r -> Sink i m r' -> Sink i m (r, r') for this but it is considered deprecated.
zipSinks :: Monad m => Sink i m r -> Sink i m r' -> Sink i m (r, r')