Commit b1a75d2f authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Pass DynFlags down to showSDocForUser

parent 7de2f211
......@@ -376,8 +376,8 @@ showSDocOneLine _ d
= Pretty.showDocWith PageMode
(runSDoc d (initSDocContext defaultUserStyle))
showSDocForUser :: PrintUnqualified -> SDoc -> String
showSDocForUser unqual doc
showSDocForUser :: DynFlags -> PrintUnqualified -> SDoc -> String
showSDocForUser _ unqual doc
= show (runSDoc doc (initSDocContext (mkUserStyle unqual AllTheWay)))
showSDocUnqual :: SDoc -> String
......
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