status: Tweak colorization.

* guix/status.scm (colorize-log-line): Add "\<" before "FAIL" (to
distinguish from "XFAIL".
Use MAGENTA instead of ORANGE, which doesn't exist.

diff --git a/guix/status.scm b/guix/status.scm
index afa3c65..b19f019 100644 (file)
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -275,10 +275,10 @@ on."
     GREEN    BOLD GREEN          RESET  GREEN  BLUE)
    ("^(phase)(.*)(failed after)(.*)(seconds)(.*)"
     RED BLUE RED BLUE RED BLUE)
-   ("^(.*)(error|fail|failed|FAIL|FAILED)([[:blank:]]*)(:)(.*)"
+   ("^(.*)(error|fail|failed|\\<FAIL|FAILED)([[:blank:]]*)(:)(.*)"
     RESET  RED                           BOLD         BOLD BOLD)
    ("^(.*)(warning)([[:blank:]]*)(:)(.*)"
-    RESET  ORANGE   BOLD        BOLD BOLD)))
+    RESET  MAGENTA   BOLD        BOLD BOLD)))
 
 (define* (print-build-event event old-status status
                             #:optional (port (current-error-port))