Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : sdoc
http://hackage.haskell.org/trac/ghc/changeset/ea3a9edda14f952042fa262abd37cc4fa0c1dd6d >--------------------------------------------------------------- commit ea3a9edda14f952042fa262abd37cc4fa0c1dd6d Author: Ian Lynagh <[email protected]> Date: Wed May 25 17:40:23 2011 +0100 More DynFlags + SDoc >--------------------------------------------------------------- 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 ca2adbb..3fd0915 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
