From 340a58e44ea50eae3134f6b72a9a79099f52a770 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 21 Apr 2017 11:44:23 -0400
Subject: [PATCH] Give default definitions for &> and <&.

---
 src/Control/Conjunctive.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Control/Conjunctive.hs b/src/Control/Conjunctive.hs
index 73ddc2728..f7c80b5b3 100644
--- a/src/Control/Conjunctive.hs
+++ b/src/Control/Conjunctive.hs
@@ -8,5 +8,7 @@ class Alternative f => Conjunctive f where
   (<&>) :: f (a -> b) -> f a -> f b
 
   (<&) :: f a -> f b -> f a
+  a <& b = const <$> a <&> b
 
   (&>) :: f a -> f b -> f b
+  a &> b = identity <$ a <&> b