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

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

@ -85,8 +85,7 @@
(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 ~]~