gnu: hplip: Fix build with Python 3.8.
* gnu/packages/cups.scm (hplip)[arguments]: Add phase "fix-build-with-python-3.8".
This commit is contained in:
		
							parent
							
								
									f7d34fcd7c
								
							
						
					
					
						commit
						68c7f577d8
					
				
					 1 changed files with 15 additions and 1 deletions
				
			
		|  | @ -6,6 +6,7 @@ | |||
| ;;; Copyright © 2017 Leo Famulari <leo@famulari.name> | ||||
| ;;; Copyright © 2017 Mark H Weaver <mhw@netris.org> | ||||
| ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> | ||||
| ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com> | ||||
| ;;; | ||||
| ;;; This file is part of GNU Guix. | ||||
| ;;; | ||||
|  | @ -536,7 +537,20 @@ should only be used as part of the Guix cups-pk-helper service.") | |||
|                   (string-append "rulessystemdir = " out | ||||
|                                  "/lib/systemd/system")) | ||||
|                  (("/etc/sane.d") | ||||
|                   (string-append out "/etc/sane.d")))))) | ||||
|                   (string-append out "/etc/sane.d"))) | ||||
|                #t))) | ||||
|          (add-before 'configure 'fix-build-with-python-3.8 | ||||
|            (lambda* (#:key inputs #:allow-other-keys) | ||||
|              (let ((python (assoc-ref inputs "python"))) | ||||
|                ;; XXX: The configure script of looks for Python headers in the | ||||
|                ;; wrong places as of version 3.20.3.  Help it by adding the | ||||
|                ;; include directory on C_INCLUDE_PATH. | ||||
|                (when python | ||||
|                  (setenv "C_INCLUDE_PATH" | ||||
|                          (string-append python "/include/python" | ||||
|                                         (python:python-version python) | ||||
|                                         ":" (getenv "C_INCLUDE_PATH")))) | ||||
|                #t))) | ||||
|          (add-after 'install 'install-models-dat | ||||
|            (lambda* (#:key outputs #:allow-other-keys) | ||||
|              (let* ((out (assoc-ref outputs "out")) | ||||
|  |  | |||
		Reference in a new issue