gnu: nanopass: Don't use unstable tarball.

* gnu/packages/chez.scm (nanopass)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
(chez-scheme)[arguments]: Adjust expected source directory name.
This commit is contained in:
Tobias Geerinckx-Rice 2019-02-16 15:43:24 +01:00
parent 55623cf08a
commit 2f1ab47772
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 7 deletions

View File

@ -42,12 +42,12 @@
(define nanopass (define nanopass
(let ((version "1.9")) (let ((version "1.9"))
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append (uri (git-reference
"https://github.com/nanopass/nanopass-framework-scheme/archive" (url "https://github.com/nanopass/nanopass-framework-scheme.git")
"/v" version ".tar.gz")) (commit (string-append "v" version))))
(sha256 (base32 "11pwyy4jiwhcl2am3a4ciczacjbjkyvdizqzdglb3l1hj2gj6nv2")) (sha256 (base32 "0lrngdna6w7v9vlp1a873hgwrwsz2p0pgkccswa4smzvdyhgfsri"))
(file-name (string-append "nanopass-" version ".tar.gz"))))) (file-name (git-file-name "nanopass" version)))))
(define stex (define stex
(let ((version "1.2.1")) (let ((version "1.2.1"))
@ -142,7 +142,7 @@
(apply patch-source-shebangs (list #:source src))) (apply patch-source-shebangs (list #:source src)))
(delete-file-recursively new-name) (delete-file-recursively new-name)
(invoke "mv" orig-name new-name))) (invoke "mv" orig-name new-name)))
`((,nanopass "nanopass-framework-scheme-1.9" "nanopass") `((,nanopass "source" "nanopass")
(,stex "stex-1.2.1" "stex"))) (,stex "stex-1.2.1" "stex")))
;; The Makefile wants to download and compile "zlib". We patch ;; The Makefile wants to download and compile "zlib". We patch
;; it to use the one from our 'zlib' package. ;; it to use the one from our 'zlib' package.