ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: Exclude broken symlinks from man files.

Browse source 
* guix/man-db.scm (man-files): Remove broken symlinks from list of man pages.
This commit is contained in:
Ricardo Wurmus 2017-12-22 00:05:12 +01:00
parent 9c3ad422d0
commit 47ebb1a850
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/man-db.scm
View file

@ -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."