[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 (file)
--- 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