diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-05-18 22:28:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-05-18 22:29:56 +0200 |
| commit | df72ba9e8895c957708f466be918c119f0f3996f (patch) | |
| tree | 535a747096908f1e2800d58a2a52eef70c088191 | |
| parent | db713662207fb254bdf68c34d00c4ad9419926ec (diff) | |
| download | guix-patches-df72ba9e8895c957708f466be918c119f0f3996f.tar guix-patches-df72ba9e8895c957708f466be918c119f0f3996f.tar.gz | |
gnu: utsushi: Turn arguments into a gexp.
* gnu/packages/scanner.scm (utsushi)[arguments]: Change to a gexp and
use 'this-package-input' and #$output.
| -rw-r--r-- | gnu/packages/scanner.scm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gnu/packages/scanner.scm b/gnu/packages/scanner.scm index 25495a62cc..0128956688 100644 --- a/gnu/packages/scanner.scm +++ b/gnu/packages/scanner.scm @@ -269,23 +269,23 @@ package contains the library and drivers."))) "0i6ipqy61abbsmqqqy5sii0vlib146snvp975sgjmv4nzy9mwf24")))) (build-system gnu-build-system) (arguments - `(#:tests? #f - #:configure-flags - (list (string-append "--with-boost-libdir=" - (assoc-ref %build-inputs "boost") "/lib") - "CXXFLAGS=-Wno-error") - #:phases - (modify-phases %standard-phases - (add-before 'bootstrap 'zap-unnecessary-git-dependency - (lambda _ - (substitute* "configure.ac" - (("-m4_esyscmd_s\\(\\[git describe --always\\]\\)") "")))) - (add-after 'install 'install-udev-rules - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (mkdir-p (string-append out "/lib/udev/rules.d")) - (install-file "drivers/esci/utsushi-esci.rules" - (string-append out "/lib/udev/rules.d")))))))) + (list #:tests? #f + #:configure-flags + #~(list (string-append "--with-boost-libdir=" + #$(this-package-input "boost") "/lib") + "CXXFLAGS=-Wno-error") + #:phases + #~(modify-phases %standard-phases + (add-before 'bootstrap 'zap-unnecessary-git-dependency + (lambda _ + (substitute* "configure.ac" + (("-m4_esyscmd_s\\(\\[git describe --always\\]\\)") "")))) + (add-after 'install 'install-udev-rules + (lambda* (#:key outputs #:allow-other-keys) + (mkdir-p (string-append #$output "/lib/udev/rules.d")) + (install-file "drivers/esci/utsushi-esci.rules" + (string-append #$output + "/lib/udev/rules.d"))))))) (inputs (list boost eudev sane-backends-minimal |