Commit b3894840 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Pass DynFlags to renderWithStyle

parent 767d5a87
......@@ -553,7 +553,7 @@ makeImportsDoc dflags imports
| otherwise
= Pretty.empty
doPpr lbl = (lbl, renderWithStyle (pprCLabel platform lbl) astyle)
doPpr lbl = (lbl, renderWithStyle dflags (pprCLabel platform lbl) astyle)
astyle = mkCodeStyle AsmStyle
......
......@@ -364,8 +364,8 @@ showSDoc d =
Pretty.showDocWith PageMode
(runSDoc d (initSDocContext defaultUserStyle))
renderWithStyle :: SDoc -> PprStyle -> String
renderWithStyle sdoc sty =
renderWithStyle :: DynFlags -> SDoc -> PprStyle -> String
renderWithStyle _ sdoc sty =
Pretty.render (runSDoc sdoc (initSDocContext sty))
-- This shows an SDoc, but on one line only. It's cheaper than a full
......
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