01/01: guix: Exclude broken symlinks from man files.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 47ebb1a850efe923e4b20080135e6e88087da673
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Dec 22 00:05:12 2017 +0100

    guix: Exclude broken symlinks from man files.
    
    * guix/man-db.scm (man-files): Remove broken symlinks from list of man 
pages.
---
 guix/man-db.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/man-db.scm b/guix/man-db.scm
index 5d62e0c..732aef1 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."