projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
69c06d8
)
[project @ 2002-05-28 19:22:04 by sof]
author
sof
<unknown>
Tue, 28 May 2002 19:22:04 +0000
(19:22 +0000)
committer
sof
<unknown>
Tue, 28 May 2002 19:22:04 +0000
(19:22 +0000)
make it compile
Text/PrettyPrint/HughesPJ.hs
patch
|
blob
|
history
diff --git
a/Text/PrettyPrint/HughesPJ.hs
b/Text/PrettyPrint/HughesPJ.hs
index
a5e7346
..
f2cdac2
100644
(file)
--- a/
Text/PrettyPrint/HughesPJ.hs
+++ b/
Text/PrettyPrint/HughesPJ.hs
@@
-798,10
+798,13
@@
oneLiner (p `Union` q) = oneLiner p
-- ---------------------------------------------------------------------------
-- Displaying the best layout
-- ---------------------------------------------------------------------------
-- Displaying the best layout
-{-
-renderStyle Style{mode, lineLength, ribbonsPerLine} doc
- = fullRender mode lineLength ribbonsPerLine doc ""
--}
+renderStyle style doc
+ = fullRender (mode style)
+ (lineLength style)
+ (ribbonsPerLine style)
+ string_txt
+ ""
+ doc
render doc = showDoc doc ""
showDoc doc rest = fullRender PageMode 100 1.5 string_txt rest doc
render doc = showDoc doc ""
showDoc doc rest = fullRender PageMode 100 1.5 string_txt rest doc