[commit: ghc] master: Pass DynFlags down to printForUserPartWay (667c577)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/667c577946a913f156826f852f28827da2920328

>---------------------------------------------------------------

commit 667c577946a913f156826f852f28827da2920328
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon Jun 11 21:40:06 2012 +0100

    Pass DynFlags down to printForUserPartWay

>---------------------------------------------------------------

 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 726e00c..dffb26f 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))))