[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: gnu: libblockdev: Set default configuration directory.
From: |
guix-commits |
Subject: |
04/04: gnu: libblockdev: Set default configuration directory. |
Date: |
Thu, 14 May 2020 04:31:05 -0400 (EDT) |
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)