diff options
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index e976e58cbd..d624cc1070 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -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 diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index e9cfaec9c9..ff419275ed 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -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 |