diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-05 19:05:02 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-05 19:05:02 +0100 |
| commit | 13f3a3196ac6c3e2f6416ff0f000ed097d67a5be (patch) | |
| tree | 29f3cf56827a8da9c5733479a4d577e85edab0e1 /compiler/utils/Outputable.lhs | |
| parent | 52307c17e79e46d0e6bd48ac6319cee4e04d9363 (diff) | |
| download | haskell-13f3a3196ac6c3e2f6416ff0f000ed097d67a5be.tar.gz | |
Remove pprDefiniteTrace
All uses of it are now in an IO Monad, so we don't need to use
a trace-like function.
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index a6d188ab54..09cf6e84ec 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -65,7 +65,7 @@ module Outputable ( -- * Error handling and debugging utilities pprPanic, pprSorry, assertPprPanic, pprPanicFastInt, pprPgmError, - pprTrace, pprDefiniteTrace, warnPprTrace, + pprTrace, warnPprTrace, trace, pgmError, panic, sorry, panicFastInt, assertPanic, pprDebugAndThen, ) where @@ -916,10 +916,6 @@ pprTrace str doc x | opt_NoDebugOutput = x | otherwise = pprDebugAndThen tracingDynFlags trace str doc x -pprDefiniteTrace :: DynFlags -> String -> SDoc -> a -> a --- ^ Same as pprTrace, but show even if -dno-debug-output is on -pprDefiniteTrace dflags str doc x = pprDebugAndThen dflags trace str doc x - pprPanicFastInt :: String -> SDoc -> FastInt -- ^ Specialization of pprPanic that can be safely used with 'FastInt' pprPanicFastInt heading pretty_msg = panicDocFastInt heading pretty_msg |