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 /compiler/utils | |
| parent | 767d5a8732a938031c8537832aa48fbde2d2f9a0 (diff) | |
| download | haskell-b3894840788eb4bca164042037bfa475701eb90e.tar.gz | |
Pass DynFlags to renderWithStyle
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |