[add FunctorM instance for IntMap
John Meacham <john@repetae.net>**20060409063857] hunk ./Util/Inst.hs 7
+import qualified Data.IntMap as IM
hunk ./Util/Inst.hs 29
-    fmapM f mp = sequence [ f y >>= return . (,) x | (x,y) <- Map.toAscList mp] >>= return . Map.fromAscList
+    fmapM f mp = sequence [ f y >>= return . (,) x | (x,y) <- Map.toAscList mp] >>= return . Map.fromDistinctAscList
+
+instance FunctorM IM.IntMap where
+    fmapM_ f mp = mapM_ f (IM.elems mp)
+    fmapM f mp = sequence [ f y >>= return . (,) x | (x,y) <- IM.toAscList mp] >>= return . IM.fromDistinctAscList
+
+