improving insertion of type for forall.

2010-11-10 17:03:56 +09:00
parent 6bac8141db
commit 0fd39e9b56
2 changed files with 4 additions and 3 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -91,7 +91,8 @@ style :: PprStyle
 style = mkUserStyle neverQualify AllTheWay

 showSDoc :: SDoc -> String
-showSDoc d = map toNull . Pretty.showDocWith ZigZagMode $ d style
+--showSDoc d = map toNull . Pretty.showDocWith ZigZagMode $ d style
+showSDoc d = map toNull . Pretty.showDocWith PageMode $ d style
  where
    toNull '\n' = '\0'
    toNull x = x