diff options
Diffstat (limited to 'guix/build-system/python.scm')
| -rw-r--r-- | guix/build-system/python.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guix/build-system/python.scm b/guix/build-system/python.scm index aeb04c83a4..2532210a49 100644 --- a/guix/build-system/python.scm +++ b/guix/build-system/python.scm @@ -31,7 +31,8 @@ #:export (%python-build-system-modules package-with-python2 python-build - python-build-system)) + python-build-system + pypi-uri)) ;; Commentary: ;; @@ -40,6 +41,13 @@ ;; ;; Code: +(define (pypi-uri name version) + "Return a URI string for the Python package hosted on the Python Package +Index (PyPI) corresponding to NAME and VERSION." + (string-append "https://pypi.python.org/packages/source/" + (string-take name 1) "/" name "/" + name "-" version ".tar.gz")) + (define %python-build-system-modules ;; Build-side modules imported by default. `((guix build python-build-system) @@ -84,6 +92,7 @@ NEW-PREFIX; otherwise, NEW-PREFIX is prepended to the name." (if (eq? (package-build-system p) python-build-system) (package (inherit p) + (location (package-location p)) (name (let ((name (package-name p))) (string-append new-prefix (if (string-prefix? old-prefix name) |