X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FFiniteMap.lhs;h=384a7d122a647ef028a650cf1326e28c279882e4;hb=68afb16743cafd5b7495771d359891c6dfc5a186;hp=6710032aa6efb1d600782b21532a5c632bc219d7;hpb=4250d64191132fd493985549eda5ca05b82a663f;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 6710032..384a7d1 100644
--- a/ghc/compiler/utils/FiniteMap.lhs
+++ b/ghc/compiler/utils/FiniteMap.lhs
@@ -47,11 +47,12 @@ module FiniteMap (
 
 	plusFM,
 	plusFM_C,
-	minusFM, 		-- exported for GHCI only
+	minusFM,
+	foldFM,
 
 	IF_NOT_GHC(intersectFM COMMA)
 	IF_NOT_GHC(intersectFM_C COMMA)
-	IF_NOT_GHC(mapFM COMMA foldFM COMMA filterFM COMMA)
+	IF_NOT_GHC(mapFM COMMA filterFM COMMA)
 
 	sizeFM, isEmptyFM, elemFM, lookupFM, lookupWithDefaultFM,
 
@@ -60,7 +61,7 @@ module FiniteMap (
 #ifdef COMPILING_GHC
 	, bagToFM
 	, FiniteSet(..), emptySet, mkSet, isEmptySet
-	, elementOf, setToList, union, minusSet{-exported for GHCI-}
+	, elementOf, setToList, union, minusSet
 #endif
 
 	-- To make it self-sufficient