diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:40:06 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:40:06 +0100 |
| commit | 667c577946a913f156826f852f28827da2920328 (patch) | |
| tree | 034b94d3c5615003a326408e2b84135fa229d2c9 | |
| parent | df34ee6d318aab836425ae86a78bda12245f4bd9 (diff) | |
| download | haskell-667c577946a913f156826f852f28827da2920328.tar.gz | |
Pass DynFlags down to printForUserPartWay
| -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)))) |