Small tidy-up
authorIan Lynagh <igloo@earth.li>
Fri, 13 Jul 2012 17:28:14 +0000 (18:28 +0100)
committerIan Lynagh <igloo@earth.li>
Fri, 13 Jul 2012 17:28:14 +0000 (18:28 +0100)
compiler/utils/Outputable.lhs

index 436b164..f74aaa8 100644 (file)
@@ -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}