From d1dcd244551d89d205c58fcea2a686d43079a38d Mon Sep 17 00:00:00 2001
From: chak <unknown>
Date: Thu, 16 Aug 2001 05:06:44 +0000
Subject: [PATCH] [project @ 2001-08-16 05:06:44 by chak] Compile
 `cmInfoThing' only for GHCI

---
 ghc/compiler/compMan/CompManager.lhs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 347e1e9..e87f074 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -178,6 +178,7 @@ moduleNameToModule mn
 -- A string may refer to more than one TyThing (eg. a constructor,
 -- and type constructor), so we return a list of all the possible TyThings.
 
+#ifdef GHCI
 cmInfoThing :: CmState -> DynFlags -> String 
 	-> IO (CmState, PrintUnqualified, [TyThing])
 cmInfoThing cmstate dflags id
@@ -186,6 +187,7 @@ cmInfoThing cmstate dflags id
    where 
      CmState{ hst=hst, hit=hit, pcs=pcs, pls=pls, ic=icontext } = cmstate
      unqual = getUnqual pcs hit icontext
+#endif
 
 -----------------------------------------------------------------------------
 -- cmRunStmt:  Run a statement/expr.
-- 
1.7.10.4