summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
cc5aad5)
Only print out the GHCi banner when verbosity >= 1, so you can omit
the banner with -v0 (useful for tests where you don't want the GHC
version number appearing in the output).
{-# OPTIONS -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
{-# OPTIONS -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.79 2001/07/03 11:14:33 simonmar Exp $
+-- $Id: Main.hs,v 1.80 2001/07/04 15:43:38 simonmar Exp $
--
-- GHC Driver program
--
--
-- GHC Driver program
--
(flags2, mode, stop_flag) <- getGhcMode argv'
writeIORef v_GhcMode mode
(flags2, mode, stop_flag) <- getGhcMode argv'
writeIORef v_GhcMode mode
- -- Show the GHCi banner?
-# ifdef GHCI
- when (mode == DoInteractive) $
- hPutStrLn stdout ghciWelcomeMsg
-# endif
-
-- process all the other arguments, and get the source files
non_static <- processArgs static_flags flags2 []
-- process all the other arguments, and get the source files
non_static <- processArgs static_flags flags2 []
-- complain about any unknown flags
mapM unknownFlagErr [ f | f@('-':_) <- srcs ]
-- complain about any unknown flags
mapM unknownFlagErr [ f | f@('-':_) <- srcs ]
- -- Display details of the configuration in verbose mode
verb <- dynFlag verbosity
verb <- dynFlag verbosity
+ -- Show the GHCi banner
+# ifdef GHCI
+ when (mode == DoInteractive && verb >= 1) $
+ hPutStrLn stdout ghciWelcomeMsg
+# endif
+
+ -- Display details of the configuration in verbose mode
when (verb >= 2)
(do hPutStr stderr "Glasgow Haskell Compiler, Version "
hPutStr stderr cProjectVersion
when (verb >= 2)
(do hPutStr stderr "Glasgow Haskell Compiler, Version "
hPutStr stderr cProjectVersion