nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: go-ipfs: Work around tar bomb. 

* gnu/packages/ipfs.scm (go-ipfs)[source](method): Switch to
URL-FETCH/TARBOMB.
(file-name): New field.
[arguments]: Add 'make-files-writable' phase.
This commit is contained in:
Ludovic Courtès 2018-12-13 14:36:38 +01:00
parent 1fc90e89f0
commit 5e741ff021
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/ipfs.scm
View File

@ -218,17 +218,27 @@ written in Go.")
(version "0.4.18") (version "0.4.18")
(source (source
(origin (origin
(method url-fetch) (method url-fetch/tarbomb)
(uri (string-append (uri (string-append
"https://dist.ipfs.io/go-ipfs/v" version "https://dist.ipfs.io/go-ipfs/v" version
"/go-ipfs-source.tar.gz")) "/go-ipfs-source.tar.gz"))
(sha256 (sha256
(base32 (base32
"19hfgbyn5sr1bw0cwm3gsjz0w3b3vh3mmkax1906raah30lavj1x")))) "19hfgbyn5sr1bw0cwm3gsjz0w3b3vh3mmkax1906raah30lavj1x"))
(file-name (string-append name "-" version "-source"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
'(#:unpack-path "github.com/ipfs/go-ipfs" '(#:unpack-path "github.com/ipfs/go-ipfs"
#:import-path "github.com/ipfs/go-ipfs/cmd/ipfs")) #:import-path "github.com/ipfs/go-ipfs/cmd/ipfs"
#:phases (modify-phases %standard-phases
(add-before 'reset-gzip-timestamps 'make-files-writable
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure .gz files are writable so that the
;; 'reset-gzip-timestamps' phase can do its work.
(let ((out (assoc-ref outputs "out")))
(for-each make-file-writable
(find-files out "\\.gz$"))
#t))))))
(home-page "https://ipfs.io") (home-page "https://ipfs.io")
(synopsis "Go implementation of IPFS, a peer-to-peer hypermedia protocol") (synopsis "Go implementation of IPFS, a peer-to-peer hypermedia protocol")
(description "IPFS is a global, versioned, peer-to-peer filesystem. It (description "IPFS is a global, versioned, peer-to-peer filesystem. It