Add important strictness annotation
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 5 Mar 2009 09:29:46 +0000 (09:29 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 5 Mar 2009 09:29:46 +0000 (09:29 +0000)
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Combinators.hs

index d2811d8..453ff6e 100644 (file)
@@ -70,7 +70,7 @@ zipWithD g f dx dy = mapD g (uncurry f . unsafe_unpairS) (zipD dx dy)
 -- | Fold a distributed value.
 foldD :: DT a => Gang -> (a -> a -> a) -> Dist a -> a
 {-# INLINE_DIST foldD #-}
-foldD g f d = checkGangD ("here foldD") g d $
+foldD g f !d = checkGangD ("here foldD") g d $
               fold 1 (d `indexD` 0)
   where
     n = gangSize g