Define >>.

fused-effects · Mar 15, 2020 · 1adb810 · 1adb810
1 parent 82d52ac
commit 1adb810
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Control/Carrier/State/Lazy.hs b/src/Control/Carrier/State/Lazy.hs
@@ -104,6 +104,9 @@ instance Monad m => Monad (StateC s m) where
     runState s' (k a')
   {-# INLINE (>>=) #-}
 
+  (>>) = (*>)
+  {-# INLINE (>>) #-}
+
 instance (Alternative m, Monad m) => Alternative (StateC s m) where
   empty = lift empty
   {-# INLINE empty #-}