Re: [PATCH] profiles: Generate database file for manpages

[Maxim Cournoyer <maxim.cournoyer@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 131 bytes --]

Another thought/experiment:

It could be interesting to use find-files with the  #:fail-on-error?
flag set to #t. When trying it:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: Type: text/x-patch, Size: 610 bytes --]

modified   guix/profiles.scm
@@ -978,7 +978,7 @@ files for the fonts of the @var{manifest} entries."
             (string-drop manpage-path (+ index (string-length "/share/man/")))))
 
         (define (populate-manpages-collection-dir entries)
-          (let ((manpages (append-map (cut find-files <> #:stat stat) entries)))
+          (let ((manpages (append-map (cut find-files <> #:stat stat #:fail-on-error? #t) entries)))
             (for-each (lambda (manpage)
                         (let* ((dest-file (string-append
                                            manpages-collection-dir "/"

[-- Attachment #1.3: Type: text/plain, Size: 491 bytes --]

                                            
It found a broken link for one of the manpages shipped with our gimp package.

find-files: /gnu/store/wh2bryjss0pnrv9ss4jbbkwfbj2ql22i-gimp-2.8.18/share/man/man1/gimp-console.1: No such file or directory

file /gnu/store/wh2bryjss0pnrv9ss4jbbkwfbj2ql22i-gimp-2.8.18/share/man/man1/gimp-console.1 
/gnu/store/wh2bryjss0pnrv9ss4jbbkwfbj2ql22i-gimp-2.8.18/share/man/man1/gimp-console.1: broken symbolic link to gimp-console-2.8.1.gz

Maxim

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]