[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: guix: Exclude broken symlinks from man files.
From: |
Ricardo Wurmus |
Subject: |
01/01: guix: Exclude broken symlinks from man files. |
Date: |
Thu, 21 Dec 2017 18:07:17 -0500 (EST) |
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."