diff options
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))) |