@@ -311,6 +311,9 @@ module Prelude
311 compare = unsafeCompare
311 compare = unsafeCompare
313 instance ordArray :: (Ord a) => Ord [a] where
313 instance ordArray :: (Ord a) => Ord [a] where
314 compare (x:xs) (y:ys) = case compare x y of
317 compare (x:xs) (y:ys) = case compare x y of
315 EQ -> compare xs ys
318 EQ -> compare xs ys
316 other -> other
319 other -> other