Copy python-lxml-4.9 from upstream Guix. HEAD main

python-lxml-4.9 has been deleted in upstream Guix.

1 files changed, 24 insertions, 1 deletions

diff --git a/arunisaac/openconnect.scm b/arunisaac/openconnect.scm
index 1bd70c8..4f82324 100644
--- a/arunisaac/openconnect.scm
+++ b/arunisaac/openconnect.scm
@@ -1,5 +1,7 @@
 ;;; guix-arunisaac --- arunisaac's Guix odds and ends
 ;;; Copyright © 2025, 2026 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2025 Zheng Junjie <z572@z572.online>
+;;; Copyright © 2025 Maxim Cournoyer <maxim@guixotic.coop>
 ;;;
 ;;; This file is part of guix-arunisaac.
 ;;;
@@ -49,7 +51,7 @@
                                             python-pyqt-6
                                             python-pyqtwebengine-6))
   #:use-module ((gnu packages vpn) #:select (openconnect))
-  #:use-module ((gnu packages xml) #:select (python-lxml-4.9))
+  #:use-module ((gnu packages xml) #:select (python-lxml))
   #:use-module (guix build-system pyproject)
   #:use-module ((guix build-system python) #:hide (pypi-uri))
   #:use-module (guix download)
@@ -59,6 +61,27 @@
   #:use-module (guix packages)
   #:use-module (guix utils))
 
+(define-public python-lxml-4.9
+  (hidden-package
+   (package
+     (inherit python-lxml)
+     (name "python-lxml")
+     (version "4.9.4")
+     (source
+      (origin
+        (method url-fetch)
+        (uri (pypi-uri "lxml" version))
+        (sha256
+         (base32 "03l86qr5xzvz0jcbk669sj8nbw1fjshmf0b7l83gl5cfnx81wm5i"))))
+     (arguments
+      (list #:tests? #f                 ;some tests fail with newer libxml2
+            #:phases
+            #~(modify-phases %standard-phases
+                (add-after 'unpack 'relax-gcc-14-strictness
+                  (lambda _
+                    (setenv "CFLAGS"
+                            "-Wno-error=incompatible-pointer-types")))))))))
+
 (define python-keyring-23.9
   (package
     (inherit python-keyring)