profiles: Handle packages without a 'share/info' directory.

Reported by Mark H. Weaver.

* guix/profiles.scm (info-dir-file): Handle the case where 'scandir'
  returns #f.
This commit is contained in:
Ludovic Courtès 2014-08-25 10:27:20 +02:00
parent 6b3342af59
commit c2815c0f46

View file

@ -393,7 +393,7 @@ (define (info-file? file)
(define (info-files top)
(let ((infodir (string-append top "/share/info")))
(map (cut string-append infodir "/" <>)
(scandir infodir info-file?))))
(or (scandir infodir info-file?) '()))))
(define (install-info info)
(zero?