diff options
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 738b835537..726e00ceca 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -328,8 +328,8 @@ hPrintDump _ h doc = do where better_doc = doc $$ blankLine -printForUser :: Handle -> PrintUnqualified -> SDoc -> IO () -printForUser handle unqual doc +printForUser :: DynFlags -> Handle -> PrintUnqualified -> SDoc -> IO () +printForUser _ handle unqual doc = Pretty.printDoc PageMode handle (runSDoc doc (initSDocContext (mkUserStyle unqual AllTheWay))) |