Fix strictness
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 21 Aug 2009 05:25:09 +0000 (05:25 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 21 Aug 2009 05:25:09 +0000 (05:25 +0000)
dph-base/Data/Array/Parallel/Stream/Flat/Basics.hs

index 4ee2500..412ec18 100644 (file)
@@ -90,7 +90,7 @@ replicateEachS n (Stream next s _) =
 --
 replicateEachRS :: Int -> Stream a -> Stream a
 {-# INLINE_STREAM replicateEachRS #-}
-replicateEachRS n (Stream next s m)
+replicateEachRS !n (Stream next s m)
   = Stream next' (0 :*: NothingS :*: s) (m * n)
   where
     next' (0 :*: _ :*: s) =