Only inline zipD in phase 0 to give some rules a chance to match in phase 1
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 20 May 2010 03:18:57 +0000 (03:18 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 20 May 2010 03:18:57 +0000 (03:18 +0000)
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Types.hs

index 5ab230f..9545f6d 100644 (file)
@@ -390,7 +390,7 @@ unitD = DUnit . gangSize
 -- | Pairing of distributed values.
 -- /The two values must belong to the same/ 'Gang'.
 zipD :: (DT a, DT b) => Dist a -> Dist b -> Dist (a :*: b)
-{-# INLINE [1] zipD #-}
+{-# INLINE [0] zipD #-}
 zipD !x !y = checkEq (here "zipDT") "Size mismatch" (sizeD x) (sizeD y) $
              DProd x y