Vector: default liftI2 was incorrect

This caused a nasty loop
ekmett · Mar 22, 2013 · 2f66e04 · 2f66e04
1 parent 48f9abe
commit 2f66e04
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Linear/Vector.hs b/src/Linear/Vector.hs
@@ -148,7 +148,7 @@ class Functor f => Additive f where
   liftI2 :: (a -> b -> c) -> f a -> f b -> f c
 #ifndef HLINT
   default liftI2 :: Applicative f => (a -> b -> c) -> f a -> f b -> f c
-  liftI2 = liftI2
+  liftI2 = liftA2
   {-# INLINE liftI2 #-}
 #endif