bug in Hugs 98 version 990121: Pretty.lhs

[Carl R. Witty]

The removal of field label punning in Haskell 98 broke Pretty.lhs;
here's a patch.


> diff -u Pretty.lhs~ Pretty.lhs
--- Pretty.lhs~ Sun Jan 24 18:27:18 1999
+++ Pretty.lhs  Sun Jan 24 17:38:30 1999
@@ -820,7 +820,7 @@
 
 
 \begin{code}
-renderStyle Style{mode, lineLength, ribbonsPerLine} doc 
+renderStyle Style{mode=mode, lineLength=lineLength, ribbonsPerLine=ribbonsPerLine} 
+doc 
   = fullRender mode lineLength ribbonsPerLine string_txt "" doc
 
 render doc       = showDoc doc ""


Carl Witty
[EMAIL PROTECTED]