diff options
| author | Sean Gillespie <sean@mistersg.net> | 2017-06-12 17:04:05 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-06-12 17:04:06 -0400 |
| commit | af9612bf862daaa99384eefa3059054053ecbee8 (patch) | |
| tree | 73c84293f84ce6b4802728e68ddb2ce983a82bd3 /utils | |
| parent | 2088d0be17dccfa91a4759bdbb20faae77c8dbed (diff) | |
| download | haskell-af9612bf862daaa99384eefa3059054053ecbee8.tar.gz | |
Make -w less aggressive (Trac #12056)
Previously -w combined with -Wunrecognised-warning-flags would not
report unrecognized flags.
Reviewers: austin, bgamari, dfeuer
Reviewed By: bgamari
Subscribers: dfeuer, rwbarton, thomie
GHC Trac Issues: #12056
Differential Revision: https://phabricator.haskell.org/D3581
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghctags/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 269e040d36..4842a0cbfb 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -12,6 +12,7 @@ import HscTypes ( msHsFilePath ) import Name ( getOccString ) --import ErrUtils ( printBagOfErrors ) import Panic ( panic ) +import CmdLineParser (warnMsg) import DynFlags ( defaultFatalMessager, defaultFlushOut ) import Bag import Exception @@ -114,7 +115,7 @@ main = do (map noLoc ghcArgs) unless (null unrec) $ liftIO $ putStrLn $ "Unrecognised options:\n" ++ show (map unLoc unrec) - liftIO $ mapM_ putStrLn (map unLoc warns) + liftIO $ mapM_ putStrLn (map (unLoc . warnMsg) warns) let dflags2 = pflags { hscTarget = HscNothing } -- don't generate anything -- liftIO $ print ("pkgDB", case (pkgDatabase dflags2) of Nothing -> 0 -- Just m -> sizeUFM m) |