From b289dee25ad8ce4c2622fadb2f4c31fb90914b39 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 29 Jan 2021 02:37:14 -0500
Subject: Lint 'return' into 'pure', replace bind operator

---
 Alpha.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Alpha.hs')

diff --git a/Alpha.hs b/Alpha.hs
index 7405103..ffcaff7 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -41,9 +41,9 @@ module Alpha
     (</),
     (<//),
 
-    -- * Shoving / binding
+    -- * inding
     bind,
-    (>>=),
+    (+>),
 
     -- * Bool
     don't,
@@ -146,7 +146,7 @@ infixl 1 |>
 
 -- | Alias for <&>. Can be read as "and then". Basically does into a
 -- functor, does some computation, then returns the same kind of
--- functor. Could also be defined as `f >>= return <. g`
+-- functor. Could also be defined as `f +> return <. g`
 --
 -- Pronunciation: fas-gar
 (/>) :: Functor f => f a -> (a -> b) -> f b
@@ -157,10 +157,10 @@ infixl 1 />
 bind :: Monad m => m a -> (a -> m b) -> m b
 bind a f = a Prelude.>>= f
 
-(>>=) :: Monad m => m a -> (a -> m b) -> m b
-a >>= b = a Prelude.>>= b
+(+>) :: Monad m => m a -> (a -> m b) -> m b
+a +> b = a Prelude.>>= b
 
-infixl 1 >>=
+infixl 1 +>
 
 -- | Removes newlines from text.
 chomp :: Text -> Text
-- 
cgit v1.2.3