diff options
author | Arun Isaac <arunisaac@systemreboot.net> | 2019-01-16 15:21:06 +0530 |
---|---|---|
committer | Arun Isaac <arunisaac@systemreboot.net> | 2019-01-16 20:49:14 +0530 |
commit | 9a5091d0c181453d0f31ce97f96a4e577a25e796 (patch) | |
tree | 40c04fac180f22ee98d8a2b22a28b2bb8cc64b39 /guix/import/github.scm | |
parent | 4eacd52cd048eb02c83d73a1c2fd53ceb9c7d12f (diff) | |
download | gnu-guix-9a5091d0c181453d0f31ce97f96a4e577a25e796.tar gnu-guix-9a5091d0c181453d0f31ce97f96a4e577a25e796.tar.gz |
import: github: Do not update URI for packages using git-fetch.
* 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".
Diffstat (limited to 'guix/import/github.scm')
-rw-r--r-- | guix/import/github.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/import/github.scm b/guix/import/github.scm index ad662e7b02..b287313d98 100644 --- a/guix/import/github.scm +++ b/guix/import/github.scm @@ -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 @@ false if none is recognized" (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 @@ false if none is recognized" ((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) |