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 ()