From 6cf472168c7b508c7300cc18dab26185c1b85014 Mon Sep 17 00:00:00 2001 From: Alejandro Serrano Date: Sun, 24 Aug 2014 13:29:12 +0200 Subject: [PATCH] Try to fix each error only once --- elisp/ghc-check.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 0998014..eafadfa 100644 --- a/elisp/ghc-check.el +++ b/elisp/ghc-check.el @@ -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)