gnu: python-pyqt-4: Use 'modify-phases' syntax.

* gnu/packages/qt.scm (python-pyqt-4)[arguments]: Use 'modify-phases'
syntax.
master
Efraim Flashner 2016-12-11 22:10:43 +02:00
parent a0bc2d45eb
commit f9513086c4
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 21 additions and 22 deletions

View File

@ -1084,28 +1084,27 @@ contain over 620 classes.")
#:modules ((srfi srfi-1)
,@%gnu-build-system-modules)
#:phases
(alist-replace
'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(sip (string-append out "/share/sip"))
(python (assoc-ref inputs "python"))
(python-version
(last (string-split python #\-)))
(python-major+minor
(string-join
(take (string-split python-version #\.) 2)
"."))
(lib (string-append out "/lib/python"
python-major+minor
"/site-packages")))
(zero? (system* "python" "configure.py"
"--confirm-license"
"--bindir" bin
"--destdir" lib
"--sipdir" sip))))
%standard-phases)))
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(sip (string-append out "/share/sip"))
(python (assoc-ref inputs "python"))
(python-version
(last (string-split python #\-)))
(python-major+minor
(string-join
(take (string-split python-version #\.) 2)
"."))
(lib (string-append out "/lib/python"
python-major+minor
"/site-packages")))
(zero? (system* "python" "configure.py"
"--confirm-license"
"--bindir" bin
"--destdir" lib
"--sipdir" sip))))))))
(license (list license:gpl2 license:gpl3)))) ; choice of either license
(define-public python2-pyqt-4