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

build/python-build-system: Fix easy-install.pth collisions.

Browse source 
* guix/build/python-build-system.scm (rename-pth-file): New rename-pth-file
  phase and corresponding function.
This commit is contained in:
Federico Beffa 2014-12-13 22:19:08 +01:00
parent 46a3e00b5b
commit 6f8fe4b29e
1 changed files with 26 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/build/python-build-system.scm
View file

@ -105,9 +105,26 @@ (define bindirs
files)))
bindirs)))
(define* (rename-pth-file #:key name inputs outputs #:allow-other-keys)
"Rename easy-install.pth to NAME.pth to avoid conflicts between packages
installed with setuptools."
(let* ((out (assoc-ref outputs "out"))
(python (assoc-ref inputs "python"))
(site-packages (string-append out "/lib/python"
(get-python-version python)
"/site-packages"))
(easy-install-pth (string-append site-packages "/easy-install.pth"))
(new-pth (string-append site-packages "/" name ".pth")))
(when (file-exists? easy-install-pth)
(rename-file easy-install-pth new-pth))
#t))
(define %standard-phases
;; 'configure' and 'build' phases are not needed. Everything is done during
;; 'install'.
(alist-cons-before
'strip 'rename-pth-file
rename-pth-file
(alist-cons-after
'install 'wrap
wrap
@ -117,7 +134,7 @@ (define %standard-phases
'check check
(alist-replace 'install install
(alist-delete 'configure
gnu:%standard-phases))))))
gnu:%standard-phases)))))))
(define* (python-build #:key inputs (phases %standard-phases)
#:allow-other-keys #:rest args)