[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

16/31: gnu: sassc: Use INVOKE.

From: Tobias Geerinckx-Rice
Subject: 16/31: gnu: sassc: Use INVOKE.
Date: Wed, 30 May 2018 22:55:34 -0400 (EDT)

nckx pushed a commit to branch master
in repository guix.

commit 7f4e5f19fa6f8c2ef325f51690da37eab402872e
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sun Apr 1 07:42:27 2018 +0200

    gnu: sassc: Use INVOKE.
    * gnu/packages/web.scm (sassc)[arguments]: Substitute INVOKE for SYSTEM*
    and its plumbing.
 gnu/packages/web.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index e79001c..ace7027 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -1236,11 +1236,9 @@ minimum to provide high performance operation.")
            (delete 'configure)
            (add-after 'unpack 'unpack-libsass-and-set-path
              (lambda* (#:key inputs #:allow-other-keys)
-               (and (zero? (system* "tar" "xvf" (assoc-ref inputs "libsass")))
-                    (begin
-                      (setenv "SASS_LIBSASS_PATH"
-                              (string-append (getcwd) "/libsass-" ,version))
-                      #t)))))))
+               (invoke "tar" "xvf" (assoc-ref inputs "libsass"))
+               (setenv "SASS_LIBSASS_PATH"
+                       (string-append (getcwd) "/libsass-" ,version)))))))
        `(("libsass" ,libsass)))
       (synopsis "CSS pre-processor")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]