branch: elpa/moe-theme
commit 54c3e397caac75a2e9c32092afed4d3bdc2f70f1
Author: kuanyui <[email protected]>
Commit: kuanyui <[email protected]>

    Fix too-harsh warning/error face in Haskell.
---
 moe-dark-theme.el  | 4 ++--
 moe-light-theme.el | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/moe-dark-theme.el b/moe-dark-theme.el
index aeb1c811a9..8b7cea689e 100644
--- a/moe-dark-theme.el
+++ b/moe-dark-theme.el
@@ -742,8 +742,8 @@ Moe, moe, kyun!")
    `(cperl-nonoverridable-face ((,class (:foreground ,green-01 :background 
,green-5))))
 
    ;; Haskell
-   `(haskell-interactive-face-compile-error ((,class (:foreground ,red-3 
:background ,red-00 :bold t))))
-   `(haskell-interactive-face-compile-warning ((,class (:foreground ,orange-4 
:background ,orange-00 :bold t))))
+   `(haskell-interactive-face-compile-error ((,class (:foreground ,red-0 
:background nil :bold t))))
+   `(haskell-interactive-face-compile-warning ((,class (:foreground ,orange-2 
:background nil :bold t))))
    `(haskell-interactive-face-garbage ((,class (:foreground ,black-2))))
    `(haskell-interactive-face-prompt ((,class (:foreground ,green-01 
:background ,black-2-5 :bold t))))
    `(haskell-interactive-face-result ((,class (:foreground ,blue-1))))
diff --git a/moe-light-theme.el b/moe-light-theme.el
index 70cbaac684..793c48b3f9 100644
--- a/moe-light-theme.el
+++ b/moe-light-theme.el
@@ -747,8 +747,8 @@ Moe, moe, kyun!")
    `(cperl-nonoverridable-face ((,class (:foreground ,green-3 :background 
,green-00))))
 
    ;; Haskell
-   `(haskell-interactive-face-compile-error ((,class (:foreground ,red-3 
:background ,red-00 :bold t))))
-   `(haskell-interactive-face-compile-warning ((,class (:foreground ,orange-4 
:background ,orange-00 :bold t))))
+   `(haskell-interactive-face-compile-error ((,class (:foreground ,red-2 
:background nil :bold t))))
+   `(haskell-interactive-face-compile-warning ((,class (:foreground ,orange-2 
:background nil :bold t))))
    `(haskell-interactive-face-garbage ((,class (:foreground ,black-2))))
    `(haskell-interactive-face-prompt ((,class (:foreground ,black-4 
:background ,yellow-0 :bold t))))
    `(haskell-interactive-face-result ((,class (:foreground ,blue-2))))

Reply via email to