From: ross <unknown>
Date: Fri, 23 Jan 2004 13:35:16 +0000 (+0000)
Subject: [project @ 2004-01-23 13:35:16 by ross]
X-Git-Tag: nhc98-1-18-release~403
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fac07592338e666a4dd935cad68313b12406dc75;p=ghc-base.git

[project @ 2004-01-23 13:35:16 by ross]
add a Functor instance for FiniteMap
---

diff --git a/Data/FiniteMap.hs b/Data/FiniteMap.hs
index 44d2437..e63d92b 100644
--- a/Data/FiniteMap.hs
+++ b/Data/FiniteMap.hs
@@ -280,6 +280,9 @@ bagToFM = foldBag plusFM (\ (k,v) -> unitFM k v) emptyFM
 instance (Show k, Show e) => Show (FiniteMap k e) where
   showsPrec p m = showsPrec p (fmToList m)
 
+instance Functor (FiniteMap k) where
+  fmap f = mapFM (const f)
+
 -- ---------------------------------------------------------------------------
 -- Adding to and deleting from @FiniteMaps@