civodul pushed a commit to branch master
in repository guix.

commit 96317d13ae60f1d9a5b1b40b8f72ad8ddc4e653c
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Mon Oct 7 22:12:33 2024 +0200

    gnu: udisks: Remove obsolete wrap-udisksd phase.
    
    The tools are now patched in the libblockdev plugin sources directly.
    
    * gnu/packages/freedesktop.scm (udisks) [phases]: Delete the wrap-udisksd
    phase.
    
    Signed-off-by: Ludovic Courtès <[email protected]>
---
 gnu/packages/freedesktop.scm | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 14c0482496..0ab0bb5104 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -1804,21 +1804,7 @@ Analysis and Reporting Technology) functionality.")
                 (("girdir = .*")
                  "girdir = $(datadir)/gir-1.0\n")
                 (("typelibsdir = .*")
-                 "typelibsdir = $(libdir)/girepository-1.0\n"))))
-          (add-after 'install 'wrap-udisksd
-            (lambda _
-              ;; Tell 'udisksd' where to find the 'mount' command.
-              (let ((utils #$(this-package-input "util-linux"))
-                    (cryptsetup #$(this-package-input "cryptsetup"))
-                    (parted #$(this-package-input "parted")))
-                (wrap-program (string-append #$output 
"/libexec/udisks2/udisksd")
-                  `("PATH" ":" prefix
-                    (,(string-append utils "/bin") ;for 'mount'
-                     ;; cryptsetup is required for setting encrypted
-                     ;; partitions, e.g. in gnome-disks
-                     ,(string-append cryptsetup "/sbin")
-                     "/run/current-system/profile/bin"
-                     "/run/current-system/profile/sbin")))))))))
+                 "typelibsdir = $(libdir)/girepository-1.0\n")))))))
     (home-page "https://www.freedesktop.org/wiki/Software/udisks/";)
     (synopsis "Disk manager service")
     (description

Reply via email to