[project @ 2001-08-16 05:06:44 by chak]

[ghc-hetmet.git] / ghc / compiler / compMan / CompManager.lhs

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 347e1e9..e87f074 100644 (file)
--- 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.