From: malcolm <unknown>
Date: Thu, 20 Oct 2005 15:14:22 +0000 (+0000)
Subject: [project @ 2005-10-20 15:14:22 by malcolm]
X-Git-Tag: cmm-merge2~8
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=34aa7646aa13a2831c1085922b3856fd5b7a63e7;p=haskell-directory.git

[project @ 2005-10-20 15:14:22 by malcolm]
Add spaces in Show instance, to avoid lexing problems e.g. Foo:=-0.9 in Read.
---

diff --git a/Data/Map.hs b/Data/Map.hs
index 7666030..6f11db1 100644
--- a/Data/Map.hs
+++ b/Data/Map.hs
@@ -1339,9 +1339,9 @@ showMap (x:xs)
   = showChar '{' . showElem x . showTail xs
   where
     showTail []     = showChar '}'
-    showTail (x:xs) = showChar ',' . showElem x . showTail xs
+    showTail (x:xs) = showString ", " . showElem x . showTail xs
     
-    showElem (k,x)  = shows k . showString ":=" . shows x
+    showElem (k,x)  = shows k . showString " := " . shows x
   
 
 -- | /O(n)/. Show the tree that implements the map. The tree is shown