From 2a197205230c6ca79ad03ed2b3756a64d75e79f6 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 26 Feb 2001 15:40:54 +0000
Subject: [PATCH] [project @ 2001-02-26 15:40:54 by simonpj] Make it build
 without GHCI

---
 ghc/compiler/compMan/CmLink.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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