mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix: Include packages that don't have a local store item.

Browse source
This commit is contained in:
Pierre Neidhardt 2020-09-26 16:12:48 +02:00
parent 0127cfa5d0
commit c080c949d6
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
guix/scripts/filesearch.scm
View file

@ -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)