style: use format directly instead of (@@ (ice-9 format) format) in (radix services admin)
parent
5397e259bb
commit
8f1a036c72
|
@ -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?
|
||||
|
|
Loading…
Reference in New Issue