mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

doc: Build an empty index if the manual is missing.

Browse source 
That way, the "sk" index for 'guix-manual' is empty, because
'guix-manual' lacks an "sk" translation.

* doc/build.scm (html-manual-identifier-index)[build](html-files):
Gracefully handle 'scandir' returning #f.
This commit is contained in:
Ludovic Courtès 2022-04-08 23:58:24 +02:00
parent 0d0e2165ea
commit b38e053513
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/build.scm
View file

@ -309,8 +309,9 @@ (define (worthy-entry? lst)
(define (html-files directory)
;; Return the list of HTML files under DIRECTORY.
(map (cut string-append directory "/" <>)
(scandir #$manual (lambda (file)
(string-suffix? ".html" file)))))
(or (scandir #$manual (lambda (file)
(string-suffix? ".html" file)))
'())))
(define anchors
(sort (concatenate