build-system/python: 'pypi-uri' takes an optional file name extension.

Suggested by swedebugia <swedebugia@riseup.net>.

* guix/build-system/python.scm (pypi-uri): Add 'extension' parameter and
use it.
This commit is contained in:
Ludovic Courtès 2016-01-08 19:06:26 +01:00
parent 2409f37f28
commit 17ad0a2714

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; ;;;
@ -41,12 +41,13 @@ (define-module (guix build-system python)
;; ;;
;; Code: ;; Code:
(define (pypi-uri name version) (define* (pypi-uri name version #:optional (extension ".tar.gz"))
"Return a URI string for the Python package hosted on the Python Package "Return a URI string for the Python package hosted on the Python Package
Index (PyPI) corresponding to NAME and VERSION." Index (PyPI) corresponding to NAME and VERSION. EXTENSION is the file name
extension, such as '.tar.gz'."
(string-append "https://pypi.python.org/packages/source/" (string-append "https://pypi.python.org/packages/source/"
(string-take name 1) "/" name "/" (string-take name 1) "/" name "/"
name "-" version ".tar.gz")) name "-" version extension))
(define %python-build-system-modules (define %python-build-system-modules
;; Build-side modules imported by default. ;; Build-side modules imported by default.