diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index ca2adbb1183b91626a6fba4485676112c38a0c94..3fd0915a220094362e87a93fe0f76094d80bab4b 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -897,10 +897,10 @@ pprDefiniteTrace :: String -> SDoc -> a -> a -- ^ Same as pprTrace, but show even if -dno-debug-output is on pprDefiniteTrace str doc x = pprAndThen trace str doc x -pprPanicFastInt :: String -> SDoc -> FastInt +pprPanicFastInt :: DynFlags -> String -> SDoc -> FastInt -- ^ Specialization of pprPanic that can be safely used with 'FastInt' -pprPanicFastInt heading pretty_msg = - panicFastInt (show (runSDoc doc (initSDocContext PprDebug))) +pprPanicFastInt dflags heading pretty_msg = + panicFastInt (show (runSDoc doc (initSDocContext' dflags PprDebug))) where doc = text heading <+> pretty_msg