From 635dd0cc96a5d06933a52a48bb9520efbd567550 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 4 Mar 2018 00:37:59 +0100
Subject: gnu: tomb: Update phase style.

* gnu/packages/crypto.scm (tomb)[arguments]: Substitute INVOKE for
SYSTEM* and end phases with #t.
---
 gnu/packages/crypto.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'gnu')

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index 7cac132b64..b498aabf4d 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -384,9 +384,9 @@ no man page, refer to the home page for usage details.")
          (delete 'configure)   ;no configuration to be done
          (add-after 'install 'i18n
            (lambda* (#:key make-flags #:allow-other-keys)
-             (zero? (apply system*
-                           "make" "-C" "extras/translations"
-                           "install" make-flags))))
+             (apply invoke "make" "-C" "extras/translations"
+                    "install" make-flags)
+             #t))
          (add-after 'install 'wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
@@ -411,7 +411,8 @@ no man page, refer to the home page for usage details.")
              ;; querying `tomb -h`.
              (let ((tomb (string-append (assoc-ref outputs "out")
                                         "/bin/tomb")))
-               (zero? (system* tomb "dig" "-s" "10" "secrets.tomb"))))))))
+               (invoke tomb "dig" "-s" "10" "secrets.tomb")
+               #t))))))
     (home-page "https://www.dyne.org/software/tomb")
     (synopsis "File encryption for secret data")
     (description
-- 
cgit v1.2.3