diff options
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 436b164334..f74aaa84fe 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -942,7 +942,7 @@ assertPprPanic file line msg pprDebugAndThen :: DynFlags -> (String -> a) -> String -> SDoc -> a pprDebugAndThen dflags cont heading pretty_msg - = cont (show (runSDoc doc (initSDocContext dflags PprDebug))) + = cont (showSDocDebug dflags doc) where doc = sep [text heading, nest 4 pretty_msg] \end{code} |