Add a missing bang
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 19 Dec 2010 15:20:43 +0000 (15:20 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 19 Dec 2010 15:20:43 +0000 (15:20 +0000)
dph-base/Data/Array/Parallel/Stream.hs

index eedb1d3..1276a78 100644 (file)
@@ -211,7 +211,7 @@ fold1SS f (Stream nexts ss sz) (Stream nextv vs _) =
           Skip    ss' -> return $ Skip (Nothing,Nothing,ss',vs)
           Yield n ss' -> return $ Skip (Just n ,Nothing,ss',vs)
 
-    next (Just n,Nothing,ss,vs) =
+    next (Just !n,Nothing,ss,vs) =
       do
         r <- nextv vs
         case r of