Pass DynFlags down to printForUserPartWay

667c5779 · Ian Lynagh · df34ee6d · 667c5779
Commit 667c5779 authored Jun 11, 2012 by Ian Lynagh
--- 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 :: DynFlags -> Handle -> Int -> PrintUnqualified -> SDoc
-printForUserPartWay handle d unqual doc
+                    -> IO ()
+printForUserPartWay _ handle d unqual doc
  = Pretty.printDoc PageMode handle
      (runSDoc doc (initSDocContext (mkUserStyle unqual (PartWay d))))