04/04: gnu: libblockdev: Set default configuration directory.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 99f2c9347053b7be78fed96d1b8e4a5cefc05a8c
Author: Brice Waegeneire <address@hidden>
AuthorDate: Thu May 14 00:25:42 2020 +0200

    gnu: libblockdev: Set default configuration directory.
    
    Fix error from 'udisks': “Failed to get contents of the config
    dir (/etc/libblockdev/conf.d/)Error opening directory
    "/etc/libblockdev/conf.d/": No such file or directory.”
    
    * gnu/packages/disk.scm (libblockdev)[arguments]: Add phase
    'patch-configuration-directory'.
    
    Signed-off-by: Efraim Flashner <address@hidden>
---
 gnu/packages/disk.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index e410e29..6b86f6f 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -802,6 +802,14 @@ to create devices with respective mappings for the ATARAID 
sets discovered.")
                (base32
                 "15c7g2gbkahmy8c6677pvbvblan5h8jxcqqmn6nlvqwqynq2mkjm"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-configuration-directory
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+              (substitute* "src/lib/blockdev.c"
+               (("/etc/libblockdev/conf.d/" path) (string-append out 
path)))))))))
     (native-inputs
      `(("gobject-introspection" ,gobject-introspection)
        ("pkg-config" ,pkg-config)