From dd0c4724a43d16642921218f02a10f4bfcecaf05 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 Dec 2003 16:54:12 +0000
Subject: [PATCH] [project @ 2003-12-16 16:54:12 by simonmar] Add Show
 instance for FiniteMap

---
 Data/FiniteMap.hs |    2 ++
 1 file changed, 2 insertions(+)

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