Commit 75a3c1bc authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Small tidy-up

parent 06d8c131
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment