ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: pypi: Emit 'pypi-uri' only when it yields the right URL.

Browse source 
Fixes <http://bugs.gnu.org/23062>.
Reported by Danny Milosavljevic <dannym@scratchpost.org>.

* guix/import/pypi.scm (make-pypi-sexp): Check whether 'pypi-uri'
returns SOURCE-URL and fall back to the full URL otherwise.
* tests/pypi.scm ("pypi->guix-package"): Adjust expected URI
accordingly.

Co-authored-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
Ludovic Courtès 2016-03-19 23:49:59 +01:00
parent 329a702634
commit 522773b700
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/import/pypi.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 David Thompson <davet@gnu.org>
;;; Copyright © 2015 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -194,7 +194,15 @@ (define (make-pypi-sexp name version source-url home-page synopsis
(version ,version)
(source (origin
(method url-fetch)
(uri (pypi-uri ,name version))
;; Sometimes 'pypi-uri' doesn't quite work due to mixed
;; cases in NAME, for instance, as is the case with
;; "uwsgi". In that case, fall back to a full URL.
(uri ,(if (equal? (pypi-uri name version) source-url)
`(pypi-uri ,name version)
`(string-append
,@(factorize-uri source-url version))))
(sha256
(base32
,(guix-hash-url temp)))))

3
tests/pypi.scm
View file

@ -84,7 +84,8 @@ (define test-requirements
('version "1.0.0")
('source ('origin
('method 'url-fetch)
('uri (pypi-uri "foo" version))
('uri (string-append "https://example.com/foo-"
version ".tar.gz"))
('sha256
('base32
(? string? hash)))))