me/guix
Archived
1
0
Fork 0
Code Activity

gnu: at-spi2-core: Unconditionally lookup docbook in native-inputs.

Browse source 
* gnu/packages/gtk.scm (at-spi2-core)[arguments]<#:phases>{patch-docbook-sgml}:
  Unconditionally look in (or native-inputs inputs) for docbook-xml.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Maxime Devos 2021-10-01 16:21:27 +02:00 • committed by Mathieu Othacehe
parent 2d9c06c61d
commit c3417f0754
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/gtk.scm
View file

@ -740,15 +740,10 @@ scaled, composited, modified, saved, or rendered.")
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(mkdir-p (string-append (assoc-ref outputs "doc") "/share")) (mkdir-p (string-append (assoc-ref outputs "doc") "/share"))
#t)) #t))
;; TODO(core-updates): Unconditionally use (or native-inputs inputs)
(add-after 'unpack 'patch-docbook-sgml (add-after 'unpack 'patch-docbook-sgml
(lambda* (#:key ,@(if (%current-target-system) (lambda* (#:key native-inputs inputs #:allow-other-keys)
'(native-inputs)
'()) inputs #:allow-other-keys)
(let* ((xmldoc (let* ((xmldoc
(string-append (assoc-ref ,(if (%current-target-system) (string-append (assoc-ref (or native-inputs inputs)
'(or native-inputs inputs)
'inputs)
"docbook-xml") "docbook-xml")
"/xml/dtd/docbook"))) "/xml/dtd/docbook")))
(substitute* "doc/libatspi/libatspi-docs.sgml" (substitute* "doc/libatspi/libatspi-docs.sgml"