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

Errors does not have "Error" prefix.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-20 18:15:51 +09:00
parent 114631f581
commit 9b629a0afb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
elisp/ghc-check.el
View File

@ -147,9 +147,9 @@
(overlay-put ovl 'ghc-check t) (overlay-put ovl 'ghc-check t)
(overlay-put ovl 'ghc-file file) (overlay-put ovl 'ghc-file file)
(overlay-put ovl 'ghc-msg msg) ;; should be list (overlay-put ovl 'ghc-msg msg) ;; should be list
(let ((face (if (string-match "^Error" msg) (let ((face (if (string-match "^Warning" msg)
'ghc-face-error 'ghc-face-warn
'ghc-face-warn))) 'ghc-face-error)))
(overlay-put ovl 'face face))))))) (overlay-put ovl 'face face)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;