Merge pull request #885 from pseudonom/patch-1
Added semigroupOrdering instance
commitf4b3ae80ef359e017a5fa8cd4a4b34aa1cb3768c
authorPhil Freeman <paf31@cantab.net>
dateMon 23 Feb 2015, 09:43 (12 years ago)
parentecbfa08bfd1e65
prelude/prelude.purs+6
@@ -379,6 +379,12 @@ module Prelude
379379 show LT = "LT"
380380 show GT = "GT"
381381 show EQ = "EQ"
382+
383+ instance semigroupOrdening :: Semigroup Ordering where
384+ (<>) LT _ = LT
385+ (<>) GT _ = GT
386+ (<>) EQ y = y
387+
382388
383389 class (Eq a) <= Ord a where
384390 compare :: a -> a -> Ordering