gnu: vera: Use invoke.

* gnu/packages/dictionaries.scm (vera)[arguments]: Use invoke and remove
vestigial plumbing in the builder.
This commit is contained in:
Mark H Weaver 2018-03-27 19:56:54 -04:00
parent 09b8c04e22
commit 22fc1b90f0
No known key found for this signature in database
GPG key ID: 7CEF29847562C516

View file

@ -62,7 +62,7 @@ (define-public vera
(gz (assoc-ref %build-inputs "gzip")) (gz (assoc-ref %build-inputs "gzip"))
(texi (assoc-ref %build-inputs "texinfo"))) (texi (assoc-ref %build-inputs "texinfo")))
(setenv "PATH" (string-append gz "/bin")) (setenv "PATH" (string-append gz "/bin"))
(system* (string-append tar "/bin/tar") "xvf" source) (invoke (string-append tar "/bin/tar") "xvf" source)
(chdir (string-append "vera-" ,version)) (chdir (string-append "vera-" ,version))
(mkdir-p info) (mkdir-p info)
@ -70,14 +70,12 @@ (define-public vera
;; XXX: Use '--force' because the document is unhappy ;; XXX: Use '--force' because the document is unhappy
;; with Texinfo 5 (yes, documents can be unhappy.) ;; with Texinfo 5 (yes, documents can be unhappy.)
(and (zero? (invoke (string-append texi "/bin/makeinfo")
(system* (string-append texi "/bin/makeinfo") "vera.texi" "--force" "-o"
"vera.texi" "--force" "-o" (string-append info "/vera.info"))
(string-append info "/vera.info"))) (invoke (string-append texi "/bin/makeinfo")
(zero? "vera.texi" "--force" "--html" "-o"
(system* (string-append texi "/bin/makeinfo") (string-append html "/vera.html"))))
"vera.texi" "--force" "--html" "-o"
(string-append html "/vera.html"))))))
#:modules ((guix build utils)))) #:modules ((guix build utils))))
(native-inputs `(("texinfo" ,texinfo) (native-inputs `(("texinfo" ,texinfo)
("tar" ,tar) ("tar" ,tar)