branch wip-filesearch updated: guix: Include packages that don't have a local store item.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ambrevar pushed a commit to branch wip-filesearch
in repository guix.

The following commit(s) were added to refs/heads/wip-filesearch by this push:
     new c080c94  guix: Include packages that don't have a local store item.
c080c94 is described below

commit c080c949d69a2dc54e10616d5254cfa6d6814dcf
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Sat Sep 26 16:12:48 2020 +0200

    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 8b58202..4aa85a9 100644
--- a/guix/scripts/filesearch.scm
+++ b/guix/scripts/filesearch.scm
@@ -57,7 +57,7 @@ string SQL for 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 @@ matches both \"/bin/foo\" and \"/usr/bin/foo\" but not 
\"barbin\"."
            ((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)