diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 22:54:17 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 22:54:17 +0100 |
| commit | b3894840788eb4bca164042037bfa475701eb90e (patch) | |
| tree | 09133f06c7e2f7a00f12afbedf9227ce2aae7a76 | |
| parent | 767d5a8732a938031c8537832aa48fbde2d2f9a0 (diff) | |
| download | haskell-b3894840788eb4bca164042037bfa475701eb90e.tar.gz | |
Pass DynFlags to renderWithStyle
| -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 |