diff --git a/src/Control/Conjunctive.hs b/src/Control/Conjunctive.hs
index c0a319b78..b5334d782 100644
--- a/src/Control/Conjunctive.hs
+++ b/src/Control/Conjunctive.hs
@@ -6,6 +6,7 @@ infixl 4 <&>
 
 class Alternative f => Conjunctive f where
   (<&>) :: f (a -> b) -> f a -> f b
+  f <&> a = liftC2 ($) f a
 
   liftC2 :: (a -> b -> c) -> f a -> f b -> f c
   liftC2 f a b = f <$> a <*> b