cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
modules/radix/services/admin.scm
View File

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