guix-commits
[Top][All Lists]
Advanced

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

02/02: gnu: nginx-accept-language-module: Simplify decompression phase.


From: guix-commits
Subject: 02/02: gnu: nginx-accept-language-module: Simplify decompression phase.
Date: Fri, 20 Mar 2020 04:15:37 -0400 (EDT)

pelzflorian pushed a commit to branch master
in repository guix.

commit e84490346d8dac3720a57a331f533ce67ff0da1c
Author: Florian Pelz <address@hidden>
AuthorDate: Fri Mar 20 07:28:07 2020 +0100

    gnu: nginx-accept-language-module: Simplify decompression phase.
    
    See <https://lists.gnu.org/archive/html/guix-patches/2020-03/msg00652.html>
    where a similar change was found to be sufficient.
    
    * gnu/packages/web.scm (nginx-accept-language-module)[arguments]:
    In 'unpack-nginx-sources' phase, extract the compressed tarball using
    tar's auto-decompression instead of decompressing manually.
---
 gnu/packages/web.scm | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 0f5f4d2..10cbf61 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -35,7 +35,7 @@
 ;;; Copyright © 2019 Alex Griffin <address@hidden>
 ;;; Copyright © 2019 Hartmut Goebel <address@hidden>
 ;;; Copyright © 2019 Jakob L. Kreuze <address@hidden>
-;;; Copyright © 2019 Florian Pelz <address@hidden>
+;;; Copyright © 2019, 2020 Florian Pelz <address@hidden>
 ;;; Copyright © 2020 Timotej Lazar <address@hidden>
 ;;; Copyright © 2020 Alexandros Theodotou <address@hidden>
 ;;; Copyright © 2020 Pierre Neidhardt <address@hidden>
@@ -441,20 +441,10 @@ documentation.")
                (begin
                  ;; The nginx source code is part of the module’s source.
                  (format #t "decompressing nginx source code~%")
-                 (call-with-output-file "nginx.tar"
-                   (lambda (out)
-                     (let* ((gzip (assoc-ref inputs "gzip"))
-                            (nginx-srcs (assoc-ref inputs "nginx-sources"))
-                            (pipe (open-pipe* OPEN_READ
-                                              (string-append gzip "/bin/gzip")
-                                              "-cd"
-                                              nginx-srcs)))
-                       (dump-port pipe out)
-                       (unless (= (status:exit-val (close-pipe pipe)) 0)
-                         (error "gzip decompress failed")))))
-                 (invoke (string-append (assoc-ref inputs "tar") "/bin/tar")
-                         "xvf" "nginx.tar" "--strip-components=1")
-                 (delete-file "nginx.tar")
+                 (let ((tar (assoc-ref inputs "tar"))
+                       (nginx-srcs (assoc-ref inputs "nginx-sources")))
+                   (invoke (string-append tar "/bin/tar")
+                           "xvf" nginx-srcs "--strip-components=1"))
                  #t)))
            (add-after 'unpack 'convert-to-dynamic-module
              (lambda _



reply via email to

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