[project @ 2005-03-18 17:16:00 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / Main.hs

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index f311130..8d156db 100644 (file)
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -457,7 +457,7 @@ showBanner cli_mode dflags = do
    let verb = verbosity dflags
        -- Show the GHCi banner
 #  ifdef GHCI
-   when (isInteractiveMode mode && verb >= 1) $
+   when (isInteractiveMode cli_mode && verb >= 1) $
       hPutStrLn stdout ghciWelcomeMsg
 #  endif