@@ -268,15 +268,29 @@ module Prelude where
268 LT -> false
268 LT -> false
269 _ -> true
269 _ -> true
271− foreign import numCompare
271+ foreign import unsafeCompare
272− "function numCompare(n1) {\
272+ "function unsafeCompare(n1) {\
273 \ return function(n2) {\
273 \ return function(n2) {\
274 \ return n1 < n2 ? LT : n1 > n2 ? GT : EQ;\
274 \ return n1 < n2 ? LT : n1 > n2 ? GT : EQ;\
276− \}" :: Number -> Number -> Ordering
276+ \}" :: forall a. a -> a -> Ordering
278+ instance ordBoolean :: Ord Boolean where
279+ compare false false = EQ
280+ compare false true = LT
281+ compare true true = EQ
282+ compare true false = GT
278 instance ordNumber :: Ord Number where
284 instance ordNumber :: Ord Number where
279− compare = numCompare
285+ compare = unsafeCompare
287+ instance ordString :: Ord String where
288+ compare = unsafeCompare
290+ instance ordArray :: (Ord a) => Ord [a] where
291+ compare (x:xs) (y:ys) = case compare x y of
281 infixl 10 &
295 infixl 10 &
282 infixl 10 |
296 infixl 10 |