@@ -379,6 +379,12 @@ module Prelude
379 show LT = "LT"
379 show LT = "LT"
380 show GT = "GT"
380 show GT = "GT"
381 show EQ = "EQ"
381 show EQ = "EQ"
383+ instance semigroupOrdening :: Semigroup Ordering where
383 class (Eq a) <= Ord a where
389 class (Eq a) <= Ord a where
384 compare :: a -> a -> Ordering
390 compare :: a -> a -> Ordering