me
/
guix
Archived
1
0
Fork 0

gnu: utsushi: Turn arguments into a gexp.

* gnu/packages/scanner.scm (utsushi)[arguments]: Change to a gexp and
use 'this-package-input' and #$output.
Ludovic Courtès 2022-05-18 22:28:08 +02:00
parent db71366220
commit df72ba9e88
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 17 deletions

View File

@ -269,23 +269,23 @@ package contains the library and drivers.")))
"0i6ipqy61abbsmqqqy5sii0vlib146snvp975sgjmv4nzy9mwf24")))) "0i6ipqy61abbsmqqqy5sii0vlib146snvp975sgjmv4nzy9mwf24"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f (list #:tests? #f
#:configure-flags #:configure-flags
(list (string-append "--with-boost-libdir=" #~(list (string-append "--with-boost-libdir="
(assoc-ref %build-inputs "boost") "/lib") #$(this-package-input "boost") "/lib")
"CXXFLAGS=-Wno-error") "CXXFLAGS=-Wno-error")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'bootstrap 'zap-unnecessary-git-dependency (add-before 'bootstrap 'zap-unnecessary-git-dependency
(lambda _ (lambda _
(substitute* "configure.ac" (substitute* "configure.ac"
(("-m4_esyscmd_s\\(\\[git describe --always\\]\\)") "")))) (("-m4_esyscmd_s\\(\\[git describe --always\\]\\)") ""))))
(add-after 'install 'install-udev-rules (add-after 'install 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (mkdir-p (string-append #$output "/lib/udev/rules.d"))
(mkdir-p (string-append out "/lib/udev/rules.d")) (install-file "drivers/esci/utsushi-esci.rules"
(install-file "drivers/esci/utsushi-esci.rules" (string-append #$output
(string-append out "/lib/udev/rules.d")))))))) "/lib/udev/rules.d")))))))
(inputs (list boost (inputs (list boost
eudev eudev
sane-backends-minimal sane-backends-minimal