aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac <arunisaac@systemreboot.net>2019-01-16 15:21:06 +0530
committerArun Isaac <arunisaac@systemreboot.net>2019-01-16 20:49:14 +0530
commit9a5091d0c181453d0f31ce97f96a4e577a25e796 (patch)
tree40c04fac180f22ee98d8a2b22a28b2bb8cc64b39
parent4eacd52cd048eb02c83d73a1c2fd53ceb9c7d12f (diff)
downloadguix-9a5091d0c181453d0f31ce97f96a4e577a25e796.tar
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".
-rw-r--r--guix/import/github.scm4
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)