diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 23:23:03 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 23:23:03 +0100 |
| commit | 1eda228cf487643e422c20effc8163e71b46efa2 (patch) | |
| tree | 527db37d5d9fb8c782a381441edda6e3f8cfc1d2 /compiler/utils/Outputable.lhs | |
| parent | 330f1541df7751d7412921ddfd6a7fb28ec4f564 (diff) | |
| download | haskell-1eda228cf487643e422c20effc8163e71b46efa2.tar.gz | |
Pass DynFlags down to pprDefiniteTrace
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 6a9fbdd117..b4027473ef 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -924,9 +924,9 @@ pprTrace str doc x | opt_NoDebugOutput = x | otherwise = pprDebugAndThen tracingDynFlags trace str doc x -pprDefiniteTrace :: String -> SDoc -> a -> a +pprDefiniteTrace :: DynFlags -> String -> SDoc -> a -> a -- ^ Same as pprTrace, but show even if -dno-debug-output is on -pprDefiniteTrace str doc x = pprDebugAndThen tracingDynFlags trace str doc x +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' |