From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Wed, 20 Apr 2011 10:32:05 +0000 (+0100)
Subject: Merge branch 'master' into ghc-new-co
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=39bb1bd24f56d1abd9961813d9cd94b61c9d4c78;hp=-c

Merge branch 'master' into ghc-new-co
---

39bb1bd24f56d1abd9961813d9cd94b61c9d4c78
diff --combined compiler/main/DynFlags.hs
index a387610,fa05195..294a165
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@@ -40,7 -40,7 +40,7 @@@ module DynFlags 
          initDynFlags,                   -- DynFlags -> IO DynFlags
  
          getOpts,                        -- DynFlags -> (DynFlags -> [a]) -> [a]
-         getVerbFlag,
+         getVerbFlags,
          updOptLevel,
          setTmpDir,
          setPackageName,
@@@ -758,7 -758,7 +758,7 @@@ defaultDynFlags 
                            SevOutput -> printOutput (msg style)
                            SevInfo   -> printErrs (msg style)
                            SevFatal  -> printErrs (msg style)
 -                          _         -> do 
 +                          _         -> do
                                  hPutChar stderr '\n'
                                  printErrs ((mkLocMessage srcSpan msg) style)
                       -- careful (#2302): printErrs prints in UTF-8, whereas
@@@ -873,10 -873,10 +873,10 @@@ getOpts dflags opts = reverse (opts dfl
  
  -- | Gets the verbosity flag for the current verbosity level. This is fed to
  -- other tools, so GHC-specific verbosity flags like @-ddump-most@ are not included
- getVerbFlag :: DynFlags -> String
- getVerbFlag dflags
-   | verbosity dflags >= 3  = "-v"
-   | otherwise =  ""
+ getVerbFlags :: DynFlags -> [String]
+ getVerbFlags dflags
+   | verbosity dflags >= 4 = ["-v"]
+   | otherwise             = []
  
  setObjectDir, setHiDir, setStubDir, setOutputDir, setDylibInstallName,
           setObjectSuf, setHiSuf, setHcSuf, parseDynLibLoaderMode,
@@@ -1919,13 -1919,14 +1919,13 @@@ forceRecompile :: DynP (
  -- recompiled which probably isn't what you want
  forceRecompile = do { dfs <- liftEwM getCmdLineState
  	       	    ; when (force_recomp dfs) (setDynFlag Opt_ForceRecomp) }
 -	where
 +        where
  	  force_recomp dfs = isOneShot (ghcMode dfs)
  
  setVerboseCore2Core :: DynP ()
  setVerboseCore2Core = do forceRecompile
                           setDynFlag Opt_D_verbose_core2core 
                           upd (\dfs -> dfs { shouldDumpSimplPhase = Nothing })
 -		         
  
  setDumpSimplPhases :: String -> DynP ()
  setDumpSimplPhases s = do forceRecompile
@@@ -2043,6 -2044,7 +2043,6 @@@ addImportPath, addLibraryPath, addInclu
  addImportPath "" = upd (\s -> s{importPaths = []})
  addImportPath p  = upd (\s -> s{importPaths = importPaths s ++ splitPathList p})
  
 -
  addLibraryPath p =
    upd (\s -> s{libraryPaths = libraryPaths s ++ splitPathList p})