01/01: import: github: Check if git URIs are GitHub URIs.

[guix-commits]

arunisaac pushed a commit to branch master
in repository guix.

commit 2034a231dcfbf0507930597492b986bfd5cf4c37
Author: Arun Isaac <address@hidden>
Date:   Sun Jan 20 22:18:32 2019 +0530

    import: github: Check if git URIs are GitHub URIs.
    
    This fixes a regression introduced in 
9a5091d0c181453d0f31ce97f96a4e577a25e796
    whereby packages with git origin URIs not hosted on GitHub would be wrongly
    detected as being covered under the github updater.
    Reported by Efraim Flashner <address@hidden>.
    
    * guix/import/github.scm (updated-github-url): Check if git URIs are GitHub
    URIs.
---
 guix/import/github.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/import/github.scm b/guix/import/github.scm
index b287313..e17ef0b 100644
--- a/guix/import/github.scm
+++ b/guix/import/github.scm
@@ -98,7 +98,9 @@ false if none is recognized"
               (updated-url source-uri))
              ((source-uri ...)
               (find updated-url source-uri))))
-     ((eq? fetch-method download:git-fetch)
+     ((and (eq? fetch-method download:git-fetch)
+           (string-prefix? "https://github.com/";
+                           (download:git-reference-url source-uri)))
       (download:git-reference-url source-uri))
      (else #f))))