Archived
1
0
Fork 0

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

* gnu/packages/qt.scm (python-pyqt-4)[arguments]: Use 'modify-phases'
syntax.
This commit is contained in:
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

View file

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