From c080c949d69a2dc54e10616d5254cfa6d6814dcf Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 26 Sep 2020 16:12:48 +0200 Subject: guix: Include packages that don't have a local store item. --- guix/scripts/filesearch.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/guix/scripts/filesearch.scm b/guix/scripts/filesearch.scm index 8b582023da..4aa85a913a 100644 --- a/guix/scripts/filesearch.scm +++ b/guix/scripts/filesearch.scm @@ -57,7 +57,7 @@ (define* (add-files db (system (error "Missing argument")) (output "out") (path (error "Missing argument")) - (files (error "Missing argument")) + files (version (error "Missing argument")) (synopsis (error "Missing argument")) (description (error "Missing argument")) @@ -147,17 +147,17 @@ (define (persist-package-files db package) ((output . path) ;; TODO: Don't list files if entry is already in database. ;; TODO: Try fetching info from remote substitute server database. - (when (file-exists? path) - (add-files db ; TODO: Merge this function and add-files? - #:name (package-name package) - #:system system - #:output output - #:path path ; Storing /gnu/store for all packages has no significant size cost. - #:version (package-version package) - #:synopsis (package-synopsis package) - #:description (package-description package) - #:guix-version %guix-version - #:files (directory-files path))))) + ;; (when (file-exists? path)) + (add-files db ; TODO: Merge this function and add-files? + #:name (package-name package) + #:system system + #:output output + #:path path ; Storing /gnu/store for all packages has no significant size cost. + #:version (package-version package) + #:synopsis (package-synopsis package) + #:description (package-description package) + #:guix-version %guix-version + #:files (directory-files path)))) output-path-pairs))) (define (search-file-package pattern . more-patterns) -- cgit v1.2.3