mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: github: Do not update URI for packages using git-fetch.

Browse source 
* guix/import/github.scm (updated-github-url): Return the unchanged source URI
for packages using git-fetch.
[updated-url]: Do not handle URIs which end with ".git".
This commit is contained in:
Arun Isaac 2019-01-16 15:21:06 +05:30
parent 4eacd52cd0
commit 9a5091d0c1
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/import/github.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -54,7 +55,6 @@ (define (updated-url url)
(github-user-slash-repository url)))
(repo (github-repository url)))
(cond
((string-suffix? ".git" url) url)
((string-suffix? (string-append "/tarball/v" version) url)
(string-append prefix "/tarball/v" new-version))
((string-suffix? (string-append "/tarball/" version) url)
@ -99,7 +99,7 @@ (define (updated-url url)
((source-uri ...)
(find updated-url source-uri))))
((eq? fetch-method download:git-fetch)
(updated-url (download:git-reference-url source-uri)))
(download:git-reference-url source-uri))
(else #f))))
(define (github-package? package)