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 ()
|
(defun ghc-check-insert-from-warning ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((ret t))
|
(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
|
(save-excursion
|
||||||
(cond
|
(cond
|
||||||
((string-match "Inferred type: \\|no type signature:" data)
|
((string-match "Inferred type: \\|no type signature:" data)
|
||||||
|
Loading…
Reference in New Issue
Block a user