Lint 'return' into 'pure', replace bind operator

1 files changed, 6 insertions, 6 deletions

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