me/guix
Archived
1
0
Fork 0
Code Activity

gnu: sane-backends-minimal: Remove obsolete #t return values.

Browse source 
* gnu/packages/scanner.scm (sane-backends-minimal)[source, arguments]:
Don't return #t from snippet or phases.
This commit is contained in:
Tobias Geerinckx-Rice 2021-02-15 15:54:39 +01:00
parent 902d76c839
commit cf9047b222
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/scanner.scm
View file

@ -59,8 +59,7 @@
'(begin '(begin
(substitute* "tools/sane-desc.c" (substitute* "tools/sane-desc.c"
(("asctime \\(localtime \\(&current_time\\)\\)") (("asctime \\(localtime \\(&current_time\\)\\)")
"\"1970-01-01\"")) "\"1970-01-01\""))))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
@ -87,8 +86,7 @@
;; Disable tests that may require back ends to be built. ;; Disable tests that may require back ends to be built.
(substitute* "testsuite/Makefile.in" (substitute* "testsuite/Makefile.in"
((" backend ") " ")) ((" backend ") " "))))
#t))
(add-before 'configure 'disable-failing-tests (add-before 'configure 'disable-failing-tests
(lambda _ (lambda _
;; Disable unmaintained tests that that fail with errors resembling: ;; Disable unmaintained tests that that fail with errors resembling:
@ -109,8 +107,7 @@
;; sanei_usb_test: sanei_usb_test.c:849: main: Assertion ;; sanei_usb_test: sanei_usb_test.c:849: main: Assertion
;; `test_init (1)' failed. ;; `test_init (1)' failed.
(substitute* "testsuite/sanei/Makefile.in" (substitute* "testsuite/sanei/Makefile.in"
(("sanei_usb_test\\$\\(EXEEXT\\) ") "")) (("sanei_usb_test\\$\\(EXEEXT\\) ") ""))))
#t))
(add-before 'build 'build-pixma_sane_options.c (add-before 'build 'build-pixma_sane_options.c
;; "No rule to make target '../backend/pixma/pixma_sane_options.c', ;; "No rule to make target '../backend/pixma/pixma_sane_options.c',
;; needed by 'sane-backends.pot-update'." ;; needed by 'sane-backends.pot-update'."
@ -123,8 +120,7 @@
(copy-file "tools/udev/libsane.rules" (copy-file "tools/udev/libsane.rules"
(string-append out (string-append out
"/lib/udev/rules.d/" "/lib/udev/rules.d/"
"60-libsane.rules")) "60-libsane.rules")))))
#t)))
(add-after 'install 'make-reproducible (add-after 'install 'make-reproducible
;; XXX Work around an old bug <https://issues.guix.gnu.org/26247>. ;; XXX Work around an old bug <https://issues.guix.gnu.org/26247>.
;; Then work around "Throw to key `decoding-error' ..." by using sed. ;; Then work around "Throw to key `decoding-error' ..." by using sed.