diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 726e00ceca..dffb26f443 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -333,8 +333,9 @@ printForUser _ handle unqual doc = Pretty.printDoc PageMode handle (runSDoc doc (initSDocContext (mkUserStyle unqual AllTheWay))) -printForUserPartWay :: Handle -> Int -> PrintUnqualified -> SDoc -> IO () -printForUserPartWay handle d unqual doc +printForUserPartWay :: DynFlags -> Handle -> Int -> PrintUnqualified -> SDoc + -> IO () +printForUserPartWay _ handle d unqual doc = Pretty.printDoc PageMode handle (runSDoc doc (initSDocContext (mkUserStyle unqual (PartWay d)))) |