[project @ 1996-05-06 11:01:29 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / FiniteMap.lhs

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 6710032..384a7d1 100644 (file)
--- 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