kreyren/pman
1
0
Fork 0
Code Issues 16 Pull Requests 2 Releases Activity

potato/rules: capitalize the status

Browse Source 
This seems as more readable
This commit is contained in:
Kreyren 2021-12-07 20:03:30 +00:00 committed by GitHub
parent 8aeef1d8eb
commit 0ca055bdc0
Signed by: GitHub
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
potato/rules.scm
View File

@ -904,11 +904,11 @@ This is where the magic happens."
(begin (begin
(if (passed? node) (if (passed? node)
(when (>= %verbosity 2) (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) (node-depth-string node) (lquo) (node-get-name node) (rquo)
(green) (default))) (green) (default)))
(when (>= %verbosity 2) (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) (node-depth-string node) (lquo) (node-get-name node) (rquo)
(red) (default)))) (red) (default))))
(if (has-parent? node) (if (has-parent? node)
@ -929,12 +929,12 @@ This is where the magic happens."
(lquo) (node-get-name node) (rquo))) (lquo) (node-get-name node) (rquo)))
(if (passed? node) (if (passed? node)
(when (>= %verbosity 1) (when (>= %verbosity 1)
(format #t "~A~a~A~a: ~Acomplete~A~%~!" (format #t "~A~a~A~a: ~ACOMPLETE~A~%~!"
(node-depth-string node) (node-depth-string node)
(lquo) (node-get-name node) (rquo) (lquo) (node-get-name node) (rquo)
(green) (default))) (green) (default)))
(when (>= %verbosity 1) (when (>= %verbosity 1)
(format #t "~A~a~A~a: ~Acomplete~A~%~!" (format #t "~A~a~A~a: ~ACOMPLETE~A~%~!"
(node-depth-string node) (node-depth-string node)
(lquo) (node-get-name node) (rquo) (lquo) (node-get-name node) (rquo)
(red) (default)))) (red) (default))))