errors over warnings (#212).
This commit is contained in:
parent
b8423a2ce6
commit
69ec168c7b
@ -152,8 +152,13 @@ nil does not display errors/warnings.
|
|||||||
(let ((ovls (ghc-check-overlay-at (point))))
|
(let ((ovls (ghc-check-overlay-at (point))))
|
||||||
(when ovls
|
(when ovls
|
||||||
(let ((msgs (mapcar (lambda (ovl) (overlay-get ovl 'ghc-msg)) ovls))
|
(let ((msgs (mapcar (lambda (ovl) (overlay-get ovl 'ghc-msg)) ovls))
|
||||||
(file (overlay-get (car ovls) 'ghc-file)))
|
(file (overlay-get (car ovls) 'ghc-file))
|
||||||
(ghc-make-file-msgs :file file :msgs msgs)))))
|
errs wrns)
|
||||||
|
(dolist (msg msgs)
|
||||||
|
(if (string-match "^Warning" msg)
|
||||||
|
(setq wrns (cons msg wrns))
|
||||||
|
(setq errs (cons msg errs))))
|
||||||
|
(ghc-make-file-msgs :file file :msgs (nconc errs wrns))))))
|
||||||
|
|
||||||
(defun ghc-display-errors ()
|
(defun ghc-display-errors ()
|
||||||
(interactive)
|
(interactive)
|
||||||
|
Loading…
Reference in New Issue
Block a user