aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-05-18 22:28:08 +0200
committerLudovic Courtès <ludo@gnu.org>2022-05-18 22:29:56 +0200
commitdf72ba9e8895c957708f466be918c119f0f3996f (patch)
tree535a747096908f1e2800d58a2a52eef70c088191 /gnu/packages
parentdb713662207fb254bdf68c34d00c4ad9419926ec (diff)
downloadguix-df72ba9e8895c957708f466be918c119f0f3996f.tar
guix-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.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/scanner.scm34
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