diff --git a/conduit/src/Data/Conduit/Internal/Conduit.hs b/conduit/src/Data/Conduit/Internal/Conduit.hs index 9139fa353..8384e7d3e 100644 --- a/conduit/src/Data/Conduit/Internal/Conduit.hs +++ b/conduit/src/Data/Conduit/Internal/Conduit.hs @@ -613,7 +613,7 @@ mergeSource = loop . sealConduitT go a = do (src1, mi) <- lift $ src0 $$++ await case mi of - Nothing -> return () + Nothing -> leftover a Just i -> yield (i, a) >> loop src1