From d81a92f8f7f6354232e574236bbe79800f6cc740 Mon Sep 17 00:00:00 2001
From: Lars Kuhtz <lars@kadena.io>
Date: Sun, 26 Mar 2023 21:32:13 -0700
Subject: [PATCH] Define >> for Of in terms of *>

---
 src/Data/Functor/Of.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Functor/Of.hs b/src/Data/Functor/Of.hs
index 7dd77e7..1f94b38 100644
--- a/src/Data/Functor/Of.hs
+++ b/src/Data/Functor/Of.hs
@@ -78,7 +78,7 @@ instance Monoid a => Applicative (Of a) where
 instance Monoid a => Monad (Of a) where
   return = pure
   {-#INLINE return #-}
-  (m :> _) >> (m' :> y) = mappend m m' :> y
+  (>>) = (*>)
   {-#INLINE (>>) #-}
   (m :> x) >>= f = let m' :> y = f x in mappend m m' :> y
   {-#INLINE (>>=) #-}