ref: b71628cdc41e15f4914ec8fed3a84bedfebc98e3
parent: d94f038f5aa4b763b550395914bad4a0562e5034
author: Lennart Augustsson <lennart@augustsson.net>
date: Wed Dec 27 14:05:18 EST 2023
Add Ordering
--- a/lib/Data/Monoid.hs
+++ b/lib/Data/Monoid.hs
@@ -151,3 +151,13 @@
instance forall a . Monoid (Last a) where
mempty = Last Nothing
+
+---------------------
+
+instance Semigroup Ordering where
+ LT <> _ = LT
+ EQ <> o = o
+ GT <> _ = GT
+
+instance Monoid Ordering where
+ mempty = EQ
--
⑨