This is an automated email from the git hooks/post-receive script.

guix_mirror_bot pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 5053a59a0b gnu: Add and use libxml2-next/fixed.
5053a59a0b is described below

commit 5053a59a0b6284ef8269f90457c560ee294ae9ad
Author: Nicolas Graves <[email protected]>
AuthorDate: Wed Sep 10 09:55:21 2025 +0200

    gnu: Add and use libxml2-next/fixed.
    
    Fixes guix/guix#2599.
    
    * gnu/packages/xml.scm (libxml2-next/fixed): New variable.
    (libxml2-next-from-grafting): Change replacement to libxml2-next/fixed.
    
    Signed-off-by: Maxim Cournoyer <[email protected]>
---
 gnu/packages/xml.scm | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index dbb2f00fde..0d2be62d0c 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -271,10 +271,39 @@ project (but it is usable outside of the Gnome 
platform).")
                      (append pkg-config
                              python-minimal)))))
 
+(define-public libxml2-next/fixed
+  (package
+    (inherit libxml2)
+    (properties '((hidden? . #t)))
+    (name "libxml2")
+    (version "2.14.5")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/libxml2/"
+                                  (version-major+minor version)"/libxml2-"
+                                  version ".tar.xz"))
+              (sha256
+               (base32
+                "0jylv2kkyzih710blg24al7b43iaqg6xsfn52qy865knagrhdl03"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments libxml2-next)
+       ((#:phases phases #~%standard-phases)
+        #~(modify-phases #$phases
+            (add-after 'install 'symlink-hardcoded-lib-for-grafts
+              (lambda _
+                (let ((lib (string-append #$output "/lib/libxml2.so")))
+                  ;; XXX: When grafting, we need to reproduce the file paths to
+                  ;; the libraries too.
+                  (symlink (string-append lib ".16")
+                           (string-append lib ".2")))))))))
+    (native-inputs (modify-inputs (package-native-inputs libxml2)
+                     (append pkg-config
+                             python-minimal)))))
+
 (define-public libxml2-next-for-grafting
   (package
     (inherit libxml2)
-    (replacement libxml2-next)
+    (replacement libxml2-next/fixed)
     (properties '((hidden? . #t)))))
 
 (define-public libxml2-xpath0

Reply via email to