pretty printing hack.

This commit is contained in:
Kazu Yamamoto 2010-06-21 11:31:06 +09:00
parent b548f1dbcf
commit 266ac30133

View File

@ -75,7 +75,7 @@
(while (re-search-forward "In the [^:\n ]+: \\|Expected type: \\|Inferred type: \\|Possible fix: " nil t)
(replace-match (concat "\n" (match-string 0) "\n ")))
(goto-char (point-max))
(while (re-search-backward "In the [a-z]+ argument" nil t)
(while (re-search-backward "In the [a-z]+ argument\\|In the `" nil t)
(insert "\n"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;