From: simonmar <unknown>
Date: Tue, 16 Dec 2003 16:54:12 +0000 (+0000)
Subject: [project @ 2003-12-16 16:54:12 by simonmar]
X-Git-Tag: nhc98-1-18-release~430
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dd0c4724a43d16642921218f02a10f4bfcecaf05;p=ghc-base.git

[project @ 2003-12-16 16:54:12 by simonmar]
Add Show instance for FiniteMap
---

diff --git a/Data/FiniteMap.hs b/Data/FiniteMap.hs
index 0b29bb3..44d2437 100644
--- a/Data/FiniteMap.hs
+++ b/Data/FiniteMap.hs
@@ -277,6 +277,8 @@ listToFM = addListToFM emptyFM
 bagToFM = foldBag plusFM (\ (k,v) -> unitFM k v) emptyFM
 #endif
 
+instance (Show k, Show e) => Show (FiniteMap k e) where
+  showsPrec p m = showsPrec p (fmToList m)
 
 -- ---------------------------------------------------------------------------
 -- Adding to and deleting from @FiniteMaps@