43/60: gnu: Add go-github-com-alcortesm-tgz.

[guix-commits]

wigust pushed a commit to branch master
in repository guix.

commit fd2a3046a86a134bb81a8b6a8080908c7a967ed8
Author: Oleg Pykhalov <go.wigust@gmail.com>
AuthorDate: Sun Aug 9 12:38:52 2020 +0300

    gnu: Add go-github-com-alcortesm-tgz.
    
    * gnu/packages/golang.scm (go-github-com-alcortesm-tgz): New variable.
---
 gnu/packages/golang.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/golang.scm b/gnu/packages/golang.scm
index ab1bcac..4d10102 100644
--- a/gnu/packages/golang.scm
+++ b/gnu/packages/golang.scm
@@ -5215,3 +5215,42 @@ provides both a client and a server.  The client can 
talk to a standard
 ssh-agent that uses UNIX sockets, and one could implement an alternative
 ssh-agent process using the sample server. ")
     (license license:asl2.0)))
+
+(define-public go-github-com-alcortesm-tgz
+  (let ((commit "9c5fe88206d7765837fed3732a42ef88fc51f1a1")
+        (revision "1"))
+    (package
+      (name "go-github-com-alcortesm-tgz")
+      (version (git-version "0.0.1" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/alcortesm/tgz";)
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "04dcwnz2c2i4wbq2vx3g2wrdgqpncr2r1h6p1k08rdwk4bq1h8c5"))
+                (modules '((guix build utils)))
+                (snippet
+                 '(begin
+                    (substitute* "tgz_test.go"
+                      ;; Fix format error
+                      (("t.Fatalf\\(\"%s: unexpected error extracting: %s\", 
err\\)")
+                       "t.Fatalf(\"%s: unexpected error extracting: %s\", com, 
err)"))
+                    #t))))
+      (build-system go-build-system)
+      (arguments
+       `(#:import-path "github.com/alcortesm/tgz"
+         #:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'make-git-checkout-writable
+             (lambda* (#:key outputs #:allow-other-keys)
+               (for-each make-file-writable (find-files "."))
+               (for-each make-file-writable (find-files (assoc-ref outputs 
"out")))
+               #t)))))
+      (home-page "https://github.com/alcortesm/tgz/";)
+      (synopsis "Go library to extract tgz files to temporal directories")
+      (description "This package provides a Go library to extract tgz files to
+temporal directories.")
+      (license license:expat))))