From: chak <unknown>
Date: Thu, 16 Aug 2001 05:06:44 +0000 (+0000)
Subject: [project @ 2001-08-16 05:06:44 by chak]
X-Git-Tag: Approximately_9120_patches~1218
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d1dcd244551d89d205c58fcea2a686d43079a38d

[project @ 2001-08-16 05:06:44 by chak]
Compile `cmInfoThing' only for GHCI
---

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.