guix: Exclude broken symlinks from man files.

* guix/man-db.scm (man-files): Remove broken symlinks from list of man pages.
This commit is contained in:
Ricardo Wurmus 2017-12-22 00:05:12 +01:00
parent 9c3ad422d0
commit 47ebb1a850
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 2 additions and 1 deletions

View File

@ -187,7 +187,8 @@
(define (man-files directory) (define (man-files directory)
"Return the list of man pages found under DIRECTORY, recursively." "Return the list of man pages found under DIRECTORY, recursively."
(find-files directory "\\.[0-9][a-z]?(\\.gz)?$")) ;; Filter the list to ensure that broken symlinks are excluded.
(filter file-exists? (find-files directory "\\.[0-9][a-z]?(\\.gz)?$")))
(define (mandb-entries directory) (define (mandb-entries directory)
"Return mandb entries for the man pages found under DIRECTORY, recursively." "Return mandb entries for the man pages found under DIRECTORY, recursively."