Print which warning-flag controls an emitted warning
[ghc.git] / compiler / iface / BinIface.hs
index a7246af..0b70e8c 100644 (file)
@@ -80,7 +80,14 @@ readBinIface_ :: DynFlags -> CheckHiWay -> TraceBinIFaceReading -> FilePath
 readBinIface_ dflags checkHiWay traceBinIFaceReading hi_path ncu = do
     let printer :: SDoc -> IO ()
         printer = case traceBinIFaceReading of
-                      TraceBinIFaceReading -> \sd -> log_action dflags dflags SevOutput noSrcSpan defaultDumpStyle sd
+                      TraceBinIFaceReading -> \sd ->
+                          log_action dflags
+                                     dflags
+                                     NoReason
+                                     SevOutput
+                                     noSrcSpan
+                                     defaultDumpStyle
+                                     sd
                       QuietBinIFaceReading -> \_ -> return ()
         wantedGot :: Outputable a => String -> a -> a -> IO ()
         wantedGot what wanted got =