Skip to content
Snippets Groups Projects
Commit 84de458b authored by Eric Bavier's avatar Eric Bavier
Browse files

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.
parent dc7b1817
No related branches found
No related tags found
No related merge requests found
...@@ -500,7 +500,10 @@ (define db-dir ...@@ -500,7 +500,10 @@ (define db-dir
(string-append #$output "/" db-subdir)) (string-append #$output "/" db-subdir))
(define (conf-files top) (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) (define (copy-conf-file conf)
(let ((base (basename conf))) (let ((base (basename conf)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment