~ruther/guix-local: profiles: Search for ghc conf files only if package db exists.

84de458ba8c6499dd63c6d7e7c67087df339e371 — Eric Bavier 10 years ago dc7b181

profiles: Search for ghc conf files only if package db exists.

This avoids having 'find-files' report warnings about searching in
non-existent directories.

* guix/profiles.scm (ghc-package-cache-file)[conf-files]: Only search
  for *.conf files if the search directory exists.

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M guix/profiles.scm

M guix/profiles.scm => guix/profiles.scm +4 -1

@@ 500,7 500,10 @@ entries of MANIFEST, or #f if MANIFEST does not have any GHC packages."
           (string-append #$output "/" db-subdir))
 
         (define (conf-files top)
-          (find-files (string-append top "/" db-subdir) "\\.conf$"))
+          (let ((db (string-append top "/" db-subdir)))
+            (if (file-exists? db)
+                (find-files db "\\.conf$")
+                '())))
 
         (define (copy-conf-file conf)
           (let ((base (basename conf)))