diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-01 17:43:50 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-01 17:56:47 +0100 |
| commit | 5905114a10572e1858b653bc3fbf21e581344c75 (patch) | |
| tree | d3d241769c2e04ee7df22373997140c7e9f12d98 | |
| parent | 222e3319bd9e942070be57933a50996e3c73cb39 (diff) | |
| download | guix-5905114a10572e1858b653bc3fbf21e581344c75.tar guix-5905114a10572e1858b653bc3fbf21e581344c75.tar.gz | |
gnu: udisks: Find the 'mount' command.
* gnu/packages/freedesktop.scm (udisks)[inputs]: Add UTIL-LINUX.
[arguments]: Add 'set-mount-file-name' phase.
| -rw-r--r-- | gnu/packages/freedesktop.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index ee94db440a..b428041423 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -343,7 +343,8 @@ Analysis and Reporting Technology) functionality.") `(("acl" ,acl) ("libatasmart" ,libatasmart) ("libgudev" ,libgudev) - ("polkit" ,polkit))) + ("polkit" ,polkit) + ("util-linux" ,util-linux))) (arguments `(#:tests? #f ; requiring system message dbus #:configure-flags @@ -360,7 +361,18 @@ Analysis and Reporting Technology) functionality.") (("girdir = .*") "girdir = $(datadir)/gir-1.0\n") (("typelibsdir = .*") - "typelibsdir = $(libdir)/girepository-1.0\n"))))))) + "typelibsdir = $(libdir)/girepository-1.0\n")))) + (add-after 'install 'set-mount-file-name + (lambda* (#:key outputs inputs #:allow-other-keys) + ;; Tell 'udisksd' where to find the 'mount' command. + (let ((out (assoc-ref outputs "out")) + (utils (assoc-ref inputs "util-linux"))) + (wrap-program (string-append out "/libexec/udisks2/udisksd") + `("PATH" ":" prefix + (,(string-append utils "/bin") ;for 'mount' + "/run/current-system/profile/bin" + "/run/current-system/profile/sbin"))) + #t)))))) (home-page "http://www.freedesktop.org/wiki/Software/udisks/") (synopsis "Disk manager service") (description |