412/418: guix: texlive-build-system: Handle doc-only packages gracefully.

[guix-commits]

ngz pushed a commit to branch tex-team-next
in repository guix.

commit a40bf26e534586f72612caebc0dc7923a413db85
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sat May 27 17:54:17 2023 +0200

    guix: texlive-build-system: Handle doc-only packages gracefully.
    
    * guix/build/texlive-build-system.scm (install): Always create #$output, 
even
    if it is empty.
---
 guix/build/texlive-build-system.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/build/texlive-build-system.scm 
b/guix/build/texlive-build-system.scm
index c5feac4608..8835e65604 100644
--- a/guix/build/texlive-build-system.scm
+++ b/guix/build/texlive-build-system.scm
@@ -207,8 +207,10 @@ runfile to replace.  If a file has no matching runfile, it 
is ignored."
       (let ((doc-dir (string-append (or doc out) "/share/texmf-dist/doc")))
         (mkdir-p doc-dir)
         (copy-recursively "doc" doc-dir)))
-    ;; Handle runfiles.
-    (let ((texmf (string-append (assoc-ref outputs "out") 
"/share/texmf-dist")))
+    ;; Install runfiles.  The package may not contain any, though.  Create
+    ;; #$output anyway to handle this situation gracefully.
+    (mkdir-p out)
+    (let ((texmf (string-append out "/share/texmf-dist")))
       (for-each (lambda (root)
                   (let ((destination (string-append texmf "/" root)))
                     (mkdir-p destination)