[project @ 2001-02-26 15:40:54 by simonpj]

Make it build without GHCI

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index 9b1045d..fb34f69 100644 (file)
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -8,11 +8,11 @@ module CmLink ( Linkable(..),  Unlinked(..),
                filterModuleLinkables, 
                findModuleLinkable_maybe,
                LinkResult(..),
-               updateClosureEnv,
                 link, 
                unload,
                 PersistentLinkerState{-abstractly!-}, emptyPLS,
 #ifdef GHCI
+               updateClosureEnv,
                linkExpr
 #endif
   ) where
@@ -90,10 +90,12 @@ emptyPLS = return (PersistentLinkerState { closure_env = emptyFM,
 emptyPLS = return (PersistentLinkerState {})
 #endif
 
+#ifdef GHCI
 updateClosureEnv :: PersistentLinkerState -> [(Name,HValue)] 
        -> IO PersistentLinkerState
 updateClosureEnv pls new_bindings
   = return pls{ closure_env = addListToFM (closure_env pls) new_bindings }
+#endif
 
 -----------------------------------------------------------------------------
 -- Unloading old objects ready for a new compilation sweep.