ask GHC for pretty printing to GHC instead of pretifying in Elisp.

2010-06-25 21:45:32 +09:00
parent b3d9b12688
commit b3523951c5
2 changed files with 5 additions and 8 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -91,4 +91,7 @@ style :: PprStyle
 style = mkUserStyle neverQualify AllTheWay

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