Commit 667c5779 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Pass DynFlags down to printForUserPartWay

parent df34ee6d
...@@ -333,8 +333,9 @@ printForUser _ handle unqual doc ...@@ -333,8 +333,9 @@ printForUser _ handle unqual doc
= Pretty.printDoc PageMode handle = Pretty.printDoc PageMode handle
(runSDoc doc (initSDocContext (mkUserStyle unqual AllTheWay))) (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 = Pretty.printDoc PageMode handle
(runSDoc doc (initSDocContext (mkUserStyle unqual (PartWay d)))) (runSDoc doc (initSDocContext (mkUserStyle unqual (PartWay d))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment