From 47ebb1a850efe923e4b20080135e6e88087da673 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 22 Dec 2017 00:05:12 +0100 Subject: 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(-) (limited to 'guix') 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 (string->number* str) (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." -- cgit v1.2.3