diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-13 18:28:14 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-13 18:28:14 +0100 |
| commit | 75a3c1bc42e3617e47f85d279f69b463f4e69f49 (patch) | |
| tree | 5b2723b5510b2743a653fd224314cd74f375e89c /compiler/utils | |
| parent | 06d8c131a5438b8bd8e35cbef73383dc29923fa8 (diff) | |
| download | haskell-75a3c1bc42e3617e47f85d279f69b463f4e69f49.tar.gz | |
Small tidy-up
Diffstat (limited to 'compiler/utils')
| -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} |