Double.* is scalar
authorGabriele Keller <keller@cse.unsw.edu.au>
Fri, 10 Feb 2012 01:27:50 +0000 (12:27 +1100)
committerGabriele Keller <keller@cse.unsw.edu.au>
Fri, 17 Feb 2012 02:11:59 +0000 (13:11 +1100)
dph-lifted-vseg/Data/Array/Parallel/Prelude/Double.hs

index da091a6..dc0066c 100644 (file)
@@ -142,7 +142,7 @@ max' (i,x) (j,y) | x P.>= y    = (i,x)
 {-# VECTORISE SCALAR (-) #-}
 
 (*) = (P.*)
-{-# VECTORISE (*) = mulPP #-}
+{-# VECTORISE SCALAR (*) #-}
 
 mulPP :: Double :-> Double :-> Double
 mulPP   = L.closure2' (P.*) (SC.zipWith (P.*))