diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-08-25 10:27:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-08-25 10:27:37 +0200 |
| commit | c2815c0f46d16b98559d0498ae683b0e36e25e7a (patch) | |
| tree | 3d84c6a045e029a88bfe204d375e55498dedf65b | |
| parent | 6b3342af59ae474b78e21dacc3b7990adb73c207 (diff) | |
| download | guix-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.scm | 2 |
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? |