From 7654ce25edde3ec562aa3ae299cf5c6ad9ad9935 Mon Sep 17 00:00:00 2001
From: anemofilia <anemofilia@disroot.org>
Date: Sat, 23 Sep 2023 21:06:28 -0300
Subject: [PATCH] style: remove commented code from (radix services admin)

---
 modules/radix/services/admin.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/modules/radix/services/admin.scm b/modules/radix/services/admin.scm
index 03f3d39..bd99250 100644
--- a/modules/radix/services/admin.scm
+++ b/modules/radix/services/admin.scm
@@ -82,12 +82,7 @@
   (plain-file "doas.conf"
     (apply string-append
            (map (lambda (statement)
-                  (match-record
-                    statement <permit-statement>
-                  #;(cond ((permit-statement? statement) <permit-statement>)
-                          ((deny-statement?   statement) <deny-statement>)
-                          (else (error "Invalid statement in configuration"
-                                       statement)))
+                  (match-record statement <permit-statement>
                     (identity as-user command args setenv
                      keepenv? nopass? nolog? persist?)
                     ((@@ (ice-9 format) format) #f
@@ -96,7 +91,7 @@
                        ~:[~;nopass ~]~
                        ~:[~;nolog ~]~
                        ~:[~;persist ~]~
-                       ~@[setenv { ~{ ~a ~} } ~]~
+                       ~@[setenv {~{ ~a~} } ~]~
                        ~a~@[ as ~a~]~
                          ~@[ cmd ~a~]~
                          ~@[ args~{ ~a~}~]~%"