- -- Show the GHCi banner
-# ifdef GHCI
- let msg = if opt_ShortGhciBanner
- then ghciShortWelcomeMsg
- else ghciWelcomeMsg
- when (isInteractiveMode cli_mode && verb >= 1) $ hPutStrLn stdout msg
-# endif
-
- -- Display details of the configuration in verbose mode
- when (not (isInteractiveMode cli_mode) && verb >= 2) $
- do hPutStr stderr "Glasgow Haskell Compiler, Version "
- hPutStr stderr cProjectVersion
- hPutStr stderr ", for Haskell 98, compiled by GHC version "