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

Merge pull request #9 from Kreyren/patch-9

Browse Source 
potato/rules: capitalize the status
This commit is contained in:
Mike Gran 2021-12-07 16:05:59 -08:00 committed by GitHub
commit e8c09ce1f6
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
(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))))