Ord instance for Data.Map

[AKST]

Same story as the missing instance of Data.Set, the haskell implementation looks something like this.

instance (Ord k, Ord v) => Ord (Map k v) where
    compare m1 m2 = compare (toAscList m1) (toAscList m2)