Repository : ssh://darcs.haskell.org//srv/darcs/packages/vector On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cd712a098b60df59a5c5bc333348ad11e6306537 >--------------------------------------------------------------- commit cd712a098b60df59a5c5bc333348ad11e6306537 Author: Roman Leshchinskiy <[email protected]> Date: Tue Aug 23 22:47:50 2011 +0000 Add a seq >--------------------------------------------------------------- Data/Vector/Fusion/Stream/Monadic.hs | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/Data/Vector/Fusion/Stream/Monadic.hs b/Data/Vector/Fusion/Stream/Monadic.hs index 6c732d1..36a5d95 100644 --- a/Data/Vector/Fusion/Stream/Monadic.hs +++ b/Data/Vector/Fusion/Stream/Monadic.hs @@ -374,7 +374,6 @@ drop n (Stream step s sz) = Stream step' (s, Just n) (sz - Exact n) Done -> Done ) (step s) - -- Mapping -- ------- @@ -961,7 +960,7 @@ flatten mk istep sz (Stream ostep t _) = Stream step (Left t) sz case r of Yield a t' -> do s <- mk a - return $ Skip (Right (s,t')) + s `seq` return (Skip (Right (s,t'))) Skip t' -> return $ Skip (Left t') Done -> return $ Done _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
