Add functor instance for products

dintxaustip · Apr 10, 2016 · bd7f216 · bd7f216
1 parent 03da71a
commit bd7f216
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/repa-scalar/Data/Repa/Scalar/Product.hs b/repa-scalar/Data/Repa/Scalar/Product.hs
@@ -30,6 +30,9 @@ data a :*: b
 
 infixr :*:
 
+instance Functor ((:*:) a) where
+ fmap f ((:*:) x y) = (:*:) x (f y)
+
 
 -- | Sequences of products that form a valid list, 
 --   using () for the nil value.