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