gnu: libsigrok: Return #t from all phases.

* gnu/packages/electronics.scm (libsigrok)[arguments]: Substitute INVOKE
for SYSTEM*. Return #t rather than undefined from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-24 22:05:45 +02:00
parent 6b042495ef
commit fbe4a5a2cb
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 3 additions and 2 deletions

View File

@ -146,7 +146,7 @@ as simple logic analyzer and/or oscilloscope hardware.")
#t))) #t)))
(add-after 'build 'build-doc (add-after 'build 'build-doc
(lambda _ (lambda _
(zero? (system* "doxygen")))) (invoke "doxygen")))
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(copy-recursively "doxy/html-api" (copy-recursively "doxy/html-api"
@ -158,7 +158,8 @@ as simple logic analyzer and/or oscilloscope hardware.")
(install-file "contrib/60-libsigrok.rules" (install-file "contrib/60-libsigrok.rules"
(string-append (string-append
(assoc-ref outputs "out") (assoc-ref outputs "out")
"/lib/udev/rules.d/")))) "/lib/udev/rules.d/"))
#t))
(add-after 'install-udev-rules 'install-fw (add-after 'install-udev-rules 'install-fw
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw")) (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))