From 9d450cd9ff5d71f3db8f1e0532aa16fc3ea969e2 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Mon, 15 Apr 2019 10:04:14 +0100
Subject: [PATCH] Fixity declaration for <<*>>, fixes #103

---
 src/Protolude/Applicative.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Protolude/Applicative.hs b/src/Protolude/Applicative.hs
index 5e2a00ca5..cb8431f2c 100644
--- a/src/Protolude/Applicative.hs
+++ b/src/Protolude/Applicative.hs
@@ -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 (<*>)