@@ -311,6 +311,9 @@ module Prelude
311311 compare = unsafeCompare
312312
313313 instance ordArray :: (Ord a) => Ord [a] where
314+ compare [] [] = EQ
315+ compare [] _ = LT
316+ compare _ [] = GT
314317 compare (x:xs) (y:ys) = case compare x y of
315318 EQ -> compare xs ys
316319 other -> other