From b548f1dbcfb9b517a918e2aeb886f9fcd4d24002 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 14 Jun 2010 15:39:26 +0900 Subject: [PATCH] pretty print. --- elisp/ghc-flymake.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/elisp/ghc-flymake.el b/elisp/ghc-flymake.el index 070bf6d..e0b7d7e 100644 --- a/elisp/ghc-flymake.el +++ b/elisp/ghc-flymake.el @@ -72,13 +72,12 @@ (insert title "\n\n") (mapc (lambda (x) (insert (ghc-replace-character x ghc-null ghc-newline) "\n")) errs) (goto-char (point-min)) - (while (re-search-forward "In the [^:\n]+: \\|Expected type: \\|Inferred type: " nil t) + (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) (insert "\n")))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun ghc-flymake-insert-from-warning ()