nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

build/glib-or-gtk-build-system: Fix 'generate-icon-cache'. 

Reported by Mark H Weaver <mhw@netris.org>

* guix/build/glib-or-gtk-build-system.scm (generate-icon-cache): Add check for
  existence of icons directory.
This commit is contained in:
Federico Beffa 2015-01-13 09:11:51 +01:00
parent 65cd77db20
commit f5895dab8a
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/build/glib-or-gtk-build-system.scm
View File

@ -217,6 +217,7 @@ needed."
((output . directory) ((output . directory)
(let ((iconsdir (string-append directory (let ((iconsdir (string-append directory
"/share/icons"))) "/share/icons")))
(when (file-exists? iconsdir)
(with-directory-excursion iconsdir (with-directory-excursion iconsdir
(for-each (for-each
(lambda (dir) (lambda (dir)
@ -232,7 +233,7 @@ needed."
(not (equal? name ".")) (not (equal? name "."))
(not (equal? name "..")) (not (equal? name ".."))
(equal? 'directory (equal? 'directory
(stat:type (stat name)))))))) (stat:type (stat name)))))))))
#t))) #t)))
outputs)) outputs))