From 34aa7646aa13a2831c1085922b3856fd5b7a63e7 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Thu, 20 Oct 2005 15:14:22 +0000
Subject: [PATCH] [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.

---
 Data/Map.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4