04/04: gnu: fprintd: Provide the right file name for 'fprintd.conf'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 5c3d6c1da88d67576659567d95b796b391b94f68
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jan 11 22:59:49 2017 +0100

    gnu: fprintd: Provide the right file name for 'fprintd.conf'.
    
    * gnu/packages/freedesktop.scm (fprintd)[arguments]: New field.
---
 gnu/packages/freedesktop.scm |   12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 9cfb987..66060ea 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -853,6 +853,18 @@ software.")
                (base32
                 "05915i0bv7q62fqrs5diqwr8dz3pwqa1c1ivcgggkjyw0xk4ldp5"))))
     (build-system gnu-build-system)
+    (arguments
+     '(#:phases (modify-phases %standard-phases
+                  (add-before 'build 'set-sysconfdir
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      ;; Work around a bug whereby the 'SYSCONFDIR' macro
+                      ;; expands literally to '${prefix}/etc'.
+                      (let ((out (assoc-ref outputs "out")))
+                        (substitute* "src/main.c"
+                          (("SYSCONFDIR, \"fprintd.conf\"")
+                           (string-append "\"" out "/etc\", "
+                                          "\"fprintd.conf\"")))
+                        #t))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)
        ("intltool" ,intltool)))