[commit: ghc] master: base: Remove bunk default impl of (>>=) (df2fa25)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/df2fa25aa6e8ccc2bf2f0b9085bbb0f63b23c9c3/ghc

>---------------------------------------------------------------

commit df2fa25aa6e8ccc2bf2f0b9085bbb0f63b23c9c3
Author: Austin Seipp <austin at well-typed.com>
Date:   Sun Sep 14 20:35:09 2014 -0500

    base: Remove bunk default impl of (>>=)
    
    Without 'join' as a part of Monad, this default implementation is bogus,
    and is a leftover from d94de87252d0fe2ae9.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

df2fa25aa6e8ccc2bf2f0b9085bbb0f63b23c9c3
 libraries/base/GHC/Base.lhs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/libraries/base/GHC/Base.lhs b/libraries/base/GHC/Base.lhs
index 9fe148e..94c9404 100644
--- a/libraries/base/GHC/Base.lhs
+++ b/libraries/base/GHC/Base.lhs
@@ -413,7 +413,6 @@ class Applicative m => Monad m where
     -- | Sequentially compose two actions, passing any value produced
     -- by the first as an argument to the second.
     (>>=)       :: forall a b. m a -> (a -> m b) -> m b
-    m >>= f = join (fmap f m)
 
     -- | Sequentially compose two actions, discarding any value produced
     -- by the first, like sequencing operators (such as the semicolon)