From c2815c0f46d16b98559d0498ae683b0e36e25e7a Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 25 Aug 2014 10:27:20 +0200
Subject: 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.
---
 guix/profiles.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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?
-- 
cgit 1.4.1