aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-08-25 10:27:20 +0200
committerLudovic Courtès <ludo@gnu.org>2014-08-25 10:27:37 +0200
commitc2815c0f46d16b98559d0498ae683b0e36e25e7a (patch)
tree3d84c6a045e029a88bfe204d375e55498dedf65b
parent6b3342af59ae474b78e21dacc3b7990adb73c207 (diff)
downloadguix-c2815c0f46d16b98559d0498ae683b0e36e25e7a.tar
guix-c2815c0f46d16b98559d0498ae683b0e36e25e7a.tar.gz
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.
-rw-r--r--guix/profiles.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index bf86624e43..a2c73fd4cd 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -393,7 +393,7 @@ MANIFEST."
(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?