From 0ca055bdc07b429d2056ba3e9932bf6e6a040a63 Mon Sep 17 00:00:00 2001 From: Kreyren Date: Tue, 7 Dec 2021 20:03:30 +0000 Subject: [PATCH] potato/rules: capitalize the status This seems as more readable --- potato/rules.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/potato/rules.scm b/potato/rules.scm index 9e0d869..53f2a3c 100644 --- a/potato/rules.scm +++ b/potato/rules.scm @@ -904,11 +904,11 @@ This is where the magic happens." (begin (if (passed? node) (when (>= %verbosity 2) - (format #t "~A~a~A~a: ~Apass~A~%~!" + (format #t "~A~a~A~a: ~APASS~A~%~!" (node-depth-string node) (lquo) (node-get-name node) (rquo) (green) (default))) (when (>= %verbosity 2) - (format #t "~A~a~A~a: ~Afail~A~%~!" + (format #t "~A~a~A~a: ~AFAIL~A~%~!" (node-depth-string node) (lquo) (node-get-name node) (rquo) (red) (default)))) (if (has-parent? node) @@ -929,12 +929,12 @@ This is where the magic happens." (lquo) (node-get-name node) (rquo))) (if (passed? node) (when (>= %verbosity 1) - (format #t "~A~a~A~a: ~Acomplete~A~%~!" + (format #t "~A~a~A~a: ~ACOMPLETE~A~%~!" (node-depth-string node) (lquo) (node-get-name node) (rquo) (green) (default))) (when (>= %verbosity 1) - (format #t "~A~a~A~a: ~Acomplete~A~%~!" + (format #t "~A~a~A~a: ~ACOMPLETE~A~%~!" (node-depth-string node) (lquo) (node-get-name node) (rquo) (red) (default))))