Delay inlining unitD
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 20 May 2010 03:19:41 +0000 (03:19 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 20 May 2010 03:19:41 +0000 (03:19 +0000)
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Types.hs

index 9545f6d..3dfee6d 100644 (file)
@@ -385,6 +385,7 @@ newD g init =
 
 -- | Yield a distributed unit.
 unitD :: Gang -> Dist ()
+{-# INLINE_DIST unitD #-}
 unitD = DUnit . gangSize
 
 -- | Pairing of distributed values.