~ruther/guix-local

47ebb1a850efe923e4b20080135e6e88087da673 — Ricardo Wurmus 8 years ago 9c3ad42
guix: Exclude broken symlinks from man files.

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

M guix/man-db.scm
M guix/man-db.scm => guix/man-db.scm +2 -1
@@ 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."