Manually eta-expand mapUP
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 20 May 2010 03:09:10 +0000 (03:09 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 20 May 2010 03:09:10 +0000 (03:09 +0000)
dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/Combinators.hs

index 0014050..c447f6f 100644 (file)
@@ -28,7 +28,7 @@ import Data.Array.Parallel.Unlifted.Distributed
 
 mapUP :: (UA a, UA b) => (a -> b) -> UArr a -> UArr b
 {-# INLINE mapUP #-}
-mapUP f = splitJoinD theGang (mapD theGang (mapU f))
+mapUP f xs = splitJoinD theGang (mapD theGang (mapU f)) xs
 
 filterUP :: UA a => (a -> Bool) -> UArr a -> UArr a
 {-# INLINE filterUP #-}