Commit 692cbe67 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Make the showSDoc definition more explicit

parent 82ebc04b
...@@ -316,7 +316,7 @@ mkCodeStyle = PprCode ...@@ -316,7 +316,7 @@ mkCodeStyle = PprCode
-- However, Doc *is* an instance of Show -- However, Doc *is* an instance of Show
-- showSDoc just blasts it out as a string -- showSDoc just blasts it out as a string
showSDoc :: SDoc -> String showSDoc :: SDoc -> String
showSDoc d = show (d defaultUserStyle) showSDoc d = Pretty.showDocWith PageMode (d defaultUserStyle)
showSDocForUser :: PrintUnqualified -> SDoc -> String showSDocForUser :: PrintUnqualified -> SDoc -> String
showSDocForUser unqual doc = show (doc (mkUserStyle unqual AllTheWay)) showSDocForUser unqual doc = show (doc (mkUserStyle unqual AllTheWay))
......
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