.

config.org

@@ -118,11 +118,12 @@ As a sibling to the former, the variable ~%local-swap~ does the same with the sw
      (delete login-service-type)
      (delete mingetty-service-type)
      (delete console-font-service-type))
-    (concat
-     <<root-simple-service-block>>
-     <<greeter-service>>
-     <<screen-lock-service>>
-     )))
+    <<root-simple-service-block>>
+    (list
+     <<greeter-service>>)
+    (list
+     <<screen-lock-service>>)
+    ))
 #+end_src
 
 *** Simple Services

config.scm

@@ -71,29 +71,29 @@
      (delete login-service-type)
      (delete mingetty-service-type)
      (delete console-font-service-type))
-    (concat
-     (list
-      (tlp-service-type
-       (tlp-configuration))
-      (thermald-service-type
-       (thermald-configuration
-        (adaptive? t)))
-      (bluetooth-service-type
-       (bluetooth-configuration))
-      (earlyoom-service-type
-       (earlyoom-configuration
-        (minimum-available-memory 5)
-        (minimum-free-swap 5)))
-      (inputattach-service-type
-       (inputattach-configuration))
-      (libvirt-service-type
-       (libvirt-configuration
-        (unix-sock-group "libvirt")))
-      (fstrim-service-type
-       (fstrim-configuration))
-      (fprintd-service-type
-       (fprintd-configuration)))
-     
+    (list
+     (tlp-service-type
+      (tlp-configuration))
+     (thermald-service-type
+      (thermald-configuration
+       (adaptive? t)))
+     (bluetooth-service-type
+      (bluetooth-configuration))
+     (earlyoom-service-type
+      (earlyoom-configuration
+       (minimum-available-memory 5)
+       (minimum-free-swap 5)))
+     (inputattach-service-type
+      (inputattach-configuration))
+     (libvirt-service-type
+      (libvirt-configuration
+       (unix-sock-group "libvirt")))
+     (fstrim-service-type
+      (fstrim-configuration))
+     (fprintd-service-type
+      (fprintd-configuration)))
+    
+    (list
      (service greetd-service-type
               (greetd-configuration
                (greeter-supplementary-groups
@@ -108,12 +108,13 @@
                      (command
                       (file-append swayfx "/bin/sway")))))
                  (greetd-terminal-configuration
-                  (terminal-vt "8"))))))
+                  (terminal-vt "8")))))))
+    (list
      (service screen-locker-service-type
               (screen-locker-configuration
                (name "swaylock")
                (program
                 (file-append swaylock-effects "/bin/swaylock"))
-               (using-setuid? #f)))
-     )))
+               (using-setuid? #f))))
+    ))
  (name-service-switch %mdns-host-lookup-nss))