diff options
Diffstat (limited to 'libraries/base/GHC/Base.hs')
| -rw-r--r-- | libraries/base/GHC/Base.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index 5d48d520f5..816c8d6355 100644 --- a/libraries/base/GHC/Base.hs +++ b/libraries/base/GHC/Base.hs @@ -290,12 +290,6 @@ instance Monoid Ordering where mempty = EQ mappend = thenCmp --- The monomorphic version is used by the autogenerated Ord instances -thenCmp :: Ordering -> Ordering -> Ordering -LT `thenCmp` _ = LT -EQ `thenCmp` y = y -GT `thenCmp` _ = GT - -- | Lift a semigroup into 'Maybe' forming a 'Monoid' according to -- <http://en.wikipedia.org/wiki/Monoid>: \"Any semigroup @S@ may be -- turned into a monoid simply by adjoining an element @e@ not in @S@ |