gnu: microscheme: Don't use unstable tarball.

* gnu/packages/avr.scm (microscheme)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
This commit is contained in:
Tobias Geerinckx-Rice 2018-12-23 11:02:03 +01:00
parent 39a7b72065
commit a4880a2735
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 10 deletions

View File

@ -3,6 +3,7 @@
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,6 +24,7 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
@ -138,14 +140,15 @@ C++.")
(package (package
(name "microscheme") (name "microscheme")
(version "0.9.3") (version "0.9.3")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "https://github.com/ryansuchocki/" (method git-fetch)
"microscheme/archive/v" version ".tar.gz")) (uri (git-reference
(url "https://github.com/ryansuchocki/microscheme.git")
(commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32 "1r3ng4pw1s9yy1h5rafra1rq19d3vmb5pzbpcz1913wz22qdd976"))
"1n404mh7z2icy3ga1mx249lk9x091k7idj6xpcf20hnmzabd0k0x")) (file-name (git-file-name name version))))
(file-name (string-append name "-" version ".tar.gz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:parallel-build? #f ; fails to build otherwise `(#:parallel-build? #f ; fails to build otherwise