Added semigroupOrdering instance
commitbfd1e65e0d7dc78e08344dc96fb761276102c67d
authorpseudonom <pseudonom@users.noreply.github.com>
dateWed 18 Feb 2015, 01:42 (12 years ago)
parent3e9ea04
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