diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:47:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:47:07 +0100 |
| commit | 630379c162876c184a88f73f7948de806374a1f8 (patch) | |
| tree | c3cda5695c2802d3aaafa9091d589324c84bcf95 /compiler/utils | |
| parent | 667c577946a913f156826f852f28827da2920328 (diff) | |
| download | haskell-630379c162876c184a88f73f7948de806374a1f8.tar.gz | |
Pass DynFlags down to printForC and printForAsm
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index dffb26f443..e9cfaec9c9 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -340,13 +340,13 @@ printForUserPartWay _ handle d unqual doc (runSDoc doc (initSDocContext (mkUserStyle unqual (PartWay d)))) -- printForC, printForAsm do what they sound like -printForC :: Handle -> SDoc -> IO () -printForC handle doc = +printForC :: DynFlags -> Handle -> SDoc -> IO () +printForC _ handle doc = Pretty.printDoc LeftMode handle (runSDoc doc (initSDocContext (PprCode CStyle))) -printForAsm :: Handle -> SDoc -> IO () -printForAsm handle doc = +printForAsm :: DynFlags -> Handle -> SDoc -> IO () +printForAsm _ handle doc = Pretty.printDoc LeftMode handle (runSDoc doc (initSDocContext (PprCode AsmStyle))) |