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:
		
							parent
							
								
									a0bc2d45eb
								
							
						
					
					
						commit
						f9513086c4
					
				
					 1 changed files with 21 additions and 22 deletions
				
			
		| 
						 | 
					@ -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
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue