Print which warning-flag controls an emitted warning
[ghc.git] / compiler / main / TidyPgm.hs
index df31fda..5bbbdb5 100644 (file)
@@ -390,7 +390,7 @@ tidyProgram hsc_env  (ModGuts { mg_module    = mod
           -- Print one-line size info
         ; let cs = coreBindsStats tidy_binds
         ; when (dopt Opt_D_dump_core_stats dflags)
-               (log_action dflags dflags SevDump noSrcSpan defaultDumpStyle
+               (log_action dflags dflags NoReason SevDump noSrcSpan defaultDumpStyle
                           (text "Tidy size (terms,types,coercions)"
                            <+> ppr (moduleName mod) <> colon
                            <+> int (cs_tm cs)