From fac07592338e666a4dd935cad68313b12406dc75 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Fri, 23 Jan 2004 13:35:16 +0000
Subject: [PATCH] [project @ 2004-01-23 13:35:16 by ross] add a Functor
 instance for FiniteMap

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

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