Try to fix each error only once
This commit is contained in:
parent
7277d4d6c3
commit
c78274f7f6
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user