diff options
Diffstat (limited to 'guix/scripts/filesearch.scm')
| -rw-r--r-- | guix/scripts/filesearch.scm | 24 |
1 files 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 @@ 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) |