From 50b70d1be6e17a644dc3b5c80592cf7c5b339fd9 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 28 May 2002 19:22:04 +0000
Subject: [PATCH] [project @ 2002-05-28 19:22:04 by sof] make it compile

---
 Text/PrettyPrint/HughesPJ.hs |   11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

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
-- 
1.7.10.4