[commit: vector] master: Add a seq (cd712a0)

[Ian Lynagh]

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 <rl at cse.unsw.edu.au>
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