diff options
author | Ian Lynagh <igloo@earth.li> | 2011-05-25 17:40:23 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:10:05 +0100 |
commit | ea3a9edda14f952042fa262abd37cc4fa0c1dd6d (patch) | |
tree | 63cc2570b62c34e6394df4e7228a6685c1bbb125 | |
parent | 781f9cae99c83302eeea0e9adde25beae2bccf79 (diff) | |
download | haskell-ea3a9edda14f952042fa262abd37cc4fa0c1dd6d.tar.gz |
More DynFlags + SDoc
-rw-r--r-- | compiler/utils/Outputable.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index ca2adbb118..3fd0915a22 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 |