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

style: remove commented code from (radix services admin)

pull/1/head
anemofilia 2023-09-23 21:06:28 -03:00
parent 94e87a5602
commit 7654ce25ed
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,12 +82,7 @@
(plain-file "doas.conf" (plain-file "doas.conf"
(apply string-append (apply string-append
(map (lambda (statement) (map (lambda (statement)
(match-record (match-record statement <permit-statement>
statement <permit-statement>
#;(cond ((permit-statement? statement) <permit-statement>)
((deny-statement? statement) <deny-statement>)
(else (error "Invalid statement in configuration"
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 ((@@ (ice-9 format) format) #f
@ -96,7 +91,7 @@
~:[~;nopass ~]~ ~:[~;nopass ~]~
~:[~;nolog ~]~ ~:[~;nolog ~]~
~:[~;persist ~]~ ~:[~;persist ~]~
~@[setenv { ~{ ~a ~} } ~]~ ~@[setenv {~{ ~a~} } ~]~
~a~@[ as ~a~]~ ~a~@[ as ~a~]~
~@[ cmd ~a~]~ ~@[ cmd ~a~]~
~@[ args~{ ~a~}~]~%" ~@[ args~{ ~a~}~]~%"