Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/75a3c1bc42e3617e47f85d279f69b463f4e69f49 >--------------------------------------------------------------- commit 75a3c1bc42e3617e47f85d279f69b463f4e69f49 Author: Ian Lynagh <[email protected]> Date: Fri Jul 13 18:28:14 2012 +0100 Small tidy-up >--------------------------------------------------------------- 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 436b164..f74aaa8 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} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
