guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

30/52: gnu: json-glib: Find docbook inputs when cross-compiling.


From: guix-commits
Subject: 30/52: gnu: json-glib: Find docbook inputs when cross-compiling.
Date: Mon, 20 Sep 2021 07:19:35 -0400 (EDT)

mothacehe pushed a commit to branch core-updates-frozen
in repository guix.

commit d0cf033661610ee1e8e728dad8710b85a428f2e3
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Aug 25 10:50:38 2021 +0200

    gnu: json-glib: Find docbook inputs when cross-compiling.
    
    * gnu/packages/gnome.scm (json-glib)[arguments]<#:phases>{patch-docbook}:
      Look up "docbook-xml" in 'native-inputs', not 'inputs', when
      cross-compiling.
---
 gnu/packages/gnome.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index b66456d..fbf3677 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4599,15 +4599,24 @@ configuration storage systems.")
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'patch-docbook
-           (lambda* (#:key inputs #:allow-other-keys)
+           ;; TODO(core-updates): Use (or native-inputs inputs)
+           ;; unconditionally.
+           (lambda* (#:key ,@(if (%current-target-system)
+                                 '(native-inputs)
+                                 '()) inputs #:allow-other-keys)
              (with-directory-excursion "doc"
                (substitute* (find-files "." "\\.xml$")
                  (("http://www.oasis-open.org/docbook/xml/4\\.3/";)
-                  (string-append (assoc-ref inputs "docbook-xml")
+                  (string-append (assoc-ref ,(if (%current-target-system)
+                                                 '(or native-inputs inputs)
+                                                 'inputs)
+                                            "docbook-xml")
                                  "/xml/dtd/docbook/")))
                (substitute* "meson.build"
                  (("http://docbook.sourceforge.net/release/xsl/current/";)
-                  (string-append (assoc-ref inputs "docbook-xsl")
+                  (string-append (assoc-ref ,(if (%current-target-system)
+                                                 '(or native-inputs inputs)
+                                                 'inputs) "docbook-xsl")
                                  "/xml/xsl/docbook-xsl-1.79.2/"))))
              #t))
          (add-after 'install 'move-docs



reply via email to

[Prev in Thread] Current Thread [Next in Thread]