From 9b629a0afb6b97bf46e8dce44fd466e35645e296 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Thu, 20 Mar 2014 18:15:51 +0900 Subject: [PATCH] Errors does not have "Error" prefix. --- elisp/ghc-check.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 94e8320..dc3ed1e 100644 --- a/elisp/ghc-check.el +++ b/elisp/ghc-check.el @@ -147,9 +147,9 @@ (overlay-put ovl 'ghc-check t) (overlay-put ovl 'ghc-file file) (overlay-put ovl 'ghc-msg msg) ;; should be list - (let ((face (if (string-match "^Error" msg) - 'ghc-face-error - 'ghc-face-warn))) + (let ((face (if (string-match "^Warning" msg) + 'ghc-face-warn + 'ghc-face-error))) (overlay-put ovl 'face face))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;