gnu: ledger: Use invoke and fix #t return.

* gnu/packages/finance.scm (ledger)[arguments]: Replace system* with invoke in
build-doc phase. Remove #t return from relocate-elisp phase since
emacs-generate-autoloads already returns #t.
This commit is contained in:
Arun Isaac 2018-07-04 18:13:31 +05:30
parent 948e888d3a
commit 1f3c4ba8f3
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 2 additions and 3 deletions

View File

@ -171,7 +171,7 @@ line client and a client based on Qt.")
(install-file "test/input/demo.ledger" examples)) (install-file "test/input/demo.ledger" examples))
#t)) #t))
(add-after 'build 'build-doc (add-after 'build 'build-doc
(lambda _ (zero? (system* "make" "doc")))) (lambda _ (invoke "make" "doc")))
(add-before 'check 'check-setup (add-before 'check 'check-setup
;; One test fails if it can't set the timezone. ;; One test fails if it can't set the timezone.
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -189,8 +189,7 @@ line client and a client based on Qt.")
(dest-dir (string-append guix-dir "/ledger-mode"))) (dest-dir (string-append guix-dir "/ledger-mode")))
(mkdir-p guix-dir) (mkdir-p guix-dir)
(rename-file orig-dir dest-dir) (rename-file orig-dir dest-dir)
(emacs-generate-autoloads ,name dest-dir)) (emacs-generate-autoloads ,name dest-dir)))))))
#t)))))
(inputs (inputs
`(("boost" ,boost) `(("boost" ,boost)
("gmp" ,gmp) ("gmp" ,gmp)