diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-03-07 00:52:02 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-03-07 15:37:13 +0100 |
| commit | b8b34be61c663ba3dc0cefa002b7051fc47ed4c0 (patch) | |
| tree | 0937246b452cb7b3245baf2ceb28601fc3676c34 | |
| parent | b9499508b4aa6055c01cc9f2d7ff776dd5a53c1c (diff) | |
gnu: links, lynx, qutebrowser: Update phase style.
* gnu/packages/web-browsers.scm (links, lynx, qutebrowser)[arguments]:
Substitute INVOKE for SYSTEM and end phases with #t.
| -rw-r--r-- | gnu/packages/web-browsers.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm index bd4c34efb6..ef39d71411 100644 --- a/gnu/packages/web-browsers.scm +++ b/gnu/packages/web-browsers.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> +;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -102,10 +103,10 @@ older or slower computers and embedded systems.") `((setenv "CHOST" ,(%current-target-system))) '()) (setenv "CONFIG_SHELL" (which "bash")) - (zero? - (system* "./configure" - (string-append "--prefix=" out) - "--enable-graphics")))))))) + (invoke "./configure" + (string-append "--prefix=" out) + "--enable-graphics") + #t)))))) (native-inputs `(("pkg-config" ,pkg-config))) (inputs `(("zlib" ,zlib) ("openssl" ,openssl) @@ -175,7 +176,8 @@ features including, tables, builtin image display, bookmarks, SSL and more.") #t)) (replace 'install (lambda* (#:key (make-flags '()) #:allow-other-keys) - (zero? (apply system* "make" "install-full" make-flags))))))) + (apply invoke "make" "install-full" make-flags) + #t))))) (synopsis "Text Web Browser") (description "Lynx is a fully-featured World Wide Web (WWW) client for users running @@ -223,7 +225,7 @@ access.") (let* ((out (assoc-ref outputs "out")) (app (string-append out "/share/applications")) (hicolor (string-append out "/share/icons/hicolor"))) - (system* "a2x" "-f" "manpage" "doc/qutebrowser.1.asciidoc") + (invoke "a2x" "-f" "manpage" "doc/qutebrowser.1.asciidoc") (install-file "doc/qutebrowser.1" (string-append out "/share/man/man1")) |