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

This fixes a regression introduced in 9a5091d0c1
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 <efraim@flashner.co.il>.

* guix/import/github.scm (updated-github-url): Check if git URIs are GitHub
URIs.
This commit is contained in:
Arun Isaac 2019-01-20 22:18:32 +05:30
parent e5ad2cdf17
commit 2034a231dc
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 3 additions and 1 deletions

View File

@ -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))))