hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

errors over warnings (#212).

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-08 13:42:41 +09:00
parent b8423a2ce6
commit 69ec168c7b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
elisp/ghc-check.el
View File

@ -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)