Merge pull request #345 from serras/master

Try to fix each error only once
This commit is contained in:
Kazu Yamamoto 2014-08-29 10:48:04 +09:00
commit 087ce36345

View File

@ -367,7 +367,7 @@ nil does not display errors/warnings.
(defun ghc-check-insert-from-warning ()
(interactive)
(let ((ret t))
(dolist (data (mapcar (lambda (ovl) (overlay-get ovl 'ghc-msg)) (ghc-check-overlay-at (point))) ret)
(dolist (data (delete-dups (mapcar (lambda (ovl) (overlay-get ovl 'ghc-msg)) (ghc-check-overlay-at (point)))) ret)
(save-excursion
(cond
((string-match "Inferred type: \\|no type signature:" data)