projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
82ebc04
)
Make the showSDoc definition more explicit
author
Ian Lynagh
<igloo@earth.li>
Tue, 31 Mar 2009 17:41:03 +0000
(17:41 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 31 Mar 2009 17:41:03 +0000
(17:41 +0000)
compiler/utils/Outputable.lhs
patch
|
blob
|
history
diff --git
a/compiler/utils/Outputable.lhs
b/compiler/utils/Outputable.lhs
index
fb0270f
..
8c9c7c7
100644
(file)
--- a/
compiler/utils/Outputable.lhs
+++ b/
compiler/utils/Outputable.lhs
@@
-316,7
+316,7
@@
mkCodeStyle = PprCode
-- However, Doc *is* an instance of Show
-- showSDoc just blasts it out as a string
showSDoc :: SDoc -> String
-showSDoc d = show (d defaultUserStyle)
+showSDoc d = Pretty.showDocWith PageMode (d defaultUserStyle)
showSDocForUser :: PrintUnqualified -> SDoc -> String
showSDocForUser unqual doc = show (doc (mkUserStyle unqual AllTheWay))