From af9612bf862daaa99384eefa3059054053ecbee8 Mon Sep 17 00:00:00 2001
From: Sean Gillespie <sean@mistersg.net>
Date: Mon, 12 Jun 2017 17:04:05 -0400
Subject: 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
---
 utils/ghctags/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'utils')

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)
-- 
cgit v1.2.1