style: use format directly instead of (@@ (ice-9 format) format) in (radix services admin)

pull/1/head
anemofilia 2023-09-24 22:08:43 -03:00
parent 5397e259bb
commit 8f1a036c72
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 9 additions and 10 deletions

View File

@ -85,16 +85,15 @@
(match-record statement <permit-statement>
(identity as-user command args setenv
keepenv? nopass? nolog? persist?)
((@@ (ice-9 format) format) #f
"~:[~;permit ~]~:[~;deny ~]~
~:[~;keepenv ~]~
~:[~;nopass ~]~
~:[~;nolog ~]~
~:[~;persist ~]~
~@[setenv {~{ ~a~} } ~]~
~a~@[ as ~a~]~
~@[ cmd ~a~]~
~@[ args~{ ~a~}~]~%"
(format #f "~:[~;permit ~]~:[~;deny ~]~
~:[~;keepenv ~]~
~:[~;nopass ~]~
~:[~;nolog ~]~
~:[~;persist ~]~
~@[setenv {~{ ~a~} } ~]~
~a~@[ as ~a~]~
~@[ cmd ~a~]~
~@[ args~{ ~a~}~]~%"
(permit-statement? statement)
(deny-statement? statement)
keepenv?