From: simonpj <unknown>
Date: Mon, 26 Feb 2001 15:40:54 +0000 (+0000)
Subject: [project @ 2001-02-26 15:40:54 by simonpj]
X-Git-Tag: Approximately_9120_patches~2551
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a197205230c6ca79ad03ed2b3756a64d75e79f6;p=ghc-hetmet.git

[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
--- 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.