From: sof <unknown>
Date: Tue, 28 May 2002 19:22:04 +0000 (+0000)
Subject: [project @ 2002-05-28 19:22:04 by sof]
X-Git-Tag: nhc98-1-18-release~995
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=50b70d1be6e17a644dc3b5c80592cf7c5b339fd9;p=haskell-directory.git

[project @ 2002-05-28 19:22:04 by sof]
make it compile
---

diff --git a/Text/PrettyPrint/HughesPJ.hs b/Text/PrettyPrint/HughesPJ.hs
index a5e7346..f2cdac2 100644
--- a/Text/PrettyPrint/HughesPJ.hs
+++ b/Text/PrettyPrint/HughesPJ.hs
@@ -798,10 +798,13 @@ oneLiner (p `Union` q)       = oneLiner p
 -- ---------------------------------------------------------------------------
 -- 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