diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-01-16 01:00:01 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-01-16 01:00:01 +0100 |
| commit | 2ea9a977fe108079ca401a322b285c4c7f971c47 (patch) | |
| tree | 8bf23330c07e0de975a26727136dbf8301c9ca14 /gnu | |
| parent | 06bf24dcb9843c1885f892624b8a19046b9d2ca2 (diff) | |
| download | guix-2ea9a977fe108079ca401a322b285c4c7f971c47.tar.gz | |
gnu: scanbd: Use G-expressions.
* gnu/packages/scanner.scm (scanbd)[arguments]: Rewrite as G-expressions.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/scanner.scm | 45 |
1 files changed, 22 insertions, 23 deletions
diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm index 1f862d5a54..55b0288076 100644 --- a/gnu/packages/scanner.scm +++ b/gnu/packages/scanner.scm @@ -263,29 +263,28 @@ package contains the library and drivers."))) (base32 "0pvy4qirfjdfm8aj6x5rkbgl7hk3jfa2s21qkk8ic5dqfjjab75n")))) (build-system gnu-build-system) (arguments - `(#:configure-flags - (list "--disable-debug" - "--sysconfdir=/etc") - #:phases - (modify-phases %standard-phases - (replace 'install - (lambda* (#:key make-flags outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (conf (string-append out "/etc/scanbd"))) - (apply invoke "make" "install" - ;; Install example configuration to the store, not /etc. - ;; These don't inherit from each other, so we need both. - (string-append "scanbdconfdir=" conf) - (string-append "scannerconfdir=" conf "/scanner.d") - make-flags)))) - (add-after 'install 'install-extra-documentation - ;; The README provides more detailed set-up instructions than the - ;; man page. - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (doc (string-append out "/share/doc/" - ,name "-" ,version))) - (install-file "doc/README.txt" doc))))))) + (list #:configure-flags + #~(list "--disable-debug" + "--sysconfdir=/etc") + #:phases + #~(modify-phases %standard-phases + (replace 'install + (lambda* (#:key make-flags #:allow-other-keys) + (let ((conf (string-append #$output "/etc/scanbd"))) + (apply invoke "make" "install" + ;; Install example configuration to the store, not + ;; /etc. These don't inherit from each other, so + ;; we need both. + (string-append "scanbdconfdir=" conf) + (string-append "scannerconfdir=" conf "/scanner.d") + make-flags)))) + (add-after 'install 'install-extra-documentation + ;; The README provides more detailed set-up instructions than + ;; the man page. + (lambda _ + (let ((doc (string-append #$output "/share/doc/" + #$name "-" #$version))) + (install-file "doc/README.txt" doc))))))) (native-inputs (list pkg-config)) (inputs |