Fixity declaration for <<*>>, fixes #103

2019-04-15 10:04:25 +01:00
parent 7491e92f2a
commit 9d450cd9ff
1 changed files with 2 additions and 0 deletions
@@ -31,5 +31,7 @@ purer = pure . pure
 liftAA2 :: (Applicative f, Applicative g) => (a -> b -> c) -> f (g a) -> f (g b) -> f (g c)
 liftAA2 = liftA2 . liftA2

+infixl 4 <<*>>
+
 (<<*>>) :: (Applicative f, Applicative g)  => f (g (a -> b)) -> f (g a) -> f (g b)
 (<<*>>) = liftA2 (<*>)