diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2017-12-22 00:05:12 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-12-22 00:06:37 +0100 |
| commit | 47ebb1a850efe923e4b20080135e6e88087da673 (patch) | |
| tree | 5749710804182f2d7b5a971ff996d3fc0ae0e263 /guix/man-db.scm | |
| parent | 9c3ad422d0f4f2e552dcb73aae98c7db1fc2e584 (diff) | |
| download | gnu-guix-47ebb1a850efe923e4b20080135e6e88087da673.tar gnu-guix-47ebb1a850efe923e4b20080135e6e88087da673.tar.gz | |
guix: Exclude broken symlinks from man files.
* guix/man-db.scm (man-files): Remove broken symlinks from list of man pages.
Diffstat (limited to 'guix/man-db.scm')
| -rw-r--r-- | guix/man-db.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/man-db.scm b/guix/man-db.scm index 5d62e0c82d..732aef1083 100644 --- a/guix/man-db.scm +++ b/guix/man-db.scm @@ -187,7 +187,8 @@ (define (man-files directory) "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) "Return mandb entries for the man pages found under DIRECTORY, recursively." |