Revert "PRELIMINARY: gnu: wpa-supplicant: Install dbus service files."

This reverts commit 9243fdf779.

gnu/packages/admin.scm

@@ -790,8 +790,7 @@ This package provides the 'wpa_supplicant' daemon and the 'wpa_cli' command.")
     (arguments
      (substitute-keyword-arguments (package-arguments wpa-supplicant-light)
        ((#:phases phases)
-        `(modify-phases ,phases
-           (add-after
+        `(alist-cons-after
           'configure 'configure-for-dbus
           (lambda _
             (let ((port (open-file ".config" "al")))
@@ -800,24 +799,16 @@ This package provides the 'wpa_supplicant' daemon and the 'wpa_cli' command.")
       CONFIG_CTRL_IFACE_DBUS_NEW=y
       CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port)
               (close-port port))
-              #t))
-           (add-after
+            #t)
+          (alist-cons-after
            'install-man-pages 'install-dbus-conf
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
-                     (conf-dir (string-append out "/etc/dbus-1/system.d"))
-                     (service-dir
-                      (string-append out "/share/dbus-1/system-services")))
-                (mkdir-p conf-dir)
+                    (dir (string-append out "/etc/dbus-1/system.d")))
+               (mkdir-p dir)
                (copy-file "dbus/dbus-wpa_supplicant.conf"
-                           (string-append conf-dir "/wpa_supplicant.conf"))
-                (mkdir-p service-dir)
-                (for-each (lambda (file)
-                            (copy-file
-                             file
-                             (string-append service-dir "/" (basename file))))
-                          (find-files "dbus" "\\.service$"))
-                #t)))))))))
+                          (string-append dir "/wpa_supplicant.conf"))))
+           ,phases)))))))
 
 (define-public wakelan
   (package