From: simonmar <unknown>
Date: Wed, 30 Mar 2005 11:15:21 +0000 (+0000)
Subject: [project @ 2005-03-30 11:15:21 by simonmar]
X-Git-Tag: arity-anal-branch-point~14
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=a4ee6f86fd8a26a5741509e71cc71f6be460ec6d;p=ghc-base.git

[project @ 2005-03-30 11:15:21 by simonmar]
Ord instance: use toAscList instead of toList (doc change only; these
functiosn are the same).
---

diff --git a/Data/Map.hs b/Data/Map.hs
index dd12656..d89ab6a 100644
--- a/Data/Map.hs
+++ b/Data/Map.hs
@@ -1294,7 +1294,7 @@ instance (Eq k,Eq a) => Eq (Map k a) where
 --------------------------------------------------------------------}
 
 instance (Ord k, Ord v) => Ord (Map k v) where
-    compare m1 m2 = compare (toList m1) (toList m2)
+    compare m1 m2 = compare (toAscList m1) (toAscList m2)
 
 {--------------------------------------------------------------------
   Functor