diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-09-26 16:12:48 +0200 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2020-09-26 16:12:48 +0200 |
| commit | c080c949d69a2dc54e10616d5254cfa6d6814dcf (patch) | |
| tree | 792761bd94df693b12a1d80a7916927c7c44c6a3 | |
| parent | 0127cfa5d0898222257a716bf7b0a167f31cc6dd (diff) | |
| download | guix-wip-filesearch.tar.gz | |
guix: Include packages that don't have a local store item. wip-filesearch
| -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) |