diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:39:23 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:39:23 +0100 |
| commit | df34ee6d318aab836425ae86a78bda12245f4bd9 (patch) | |
| tree | 05aeb698a9e5246f516cd03a9b46e74764c88c9d /compiler/utils | |
| parent | 9d246714d9f3646030b2788030b503664707c46c (diff) | |
| download | haskell-df34ee6d318aab836425ae86a78bda12245f4bd9.tar.gz | |
Pass DynFlags down to printForUser
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))) |