nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

profiles: manifest-lookup-package: Optionally match version prefix. 

* guix/profiles.scm (manifest-lookup-package): Optionally filter store
item matches by version prefix.
This commit is contained in:
Ricardo Wurmus 2016-09-22 22:25:12 +02:00
parent f3cfe4515a
commit 2c9f4786c9
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
guix/profiles.scm
View File

@ -472,21 +472,30 @@ replace it."
(cons (gexp-input thing output) deps))) (cons (gexp-input thing output) deps)))
(manifest-entries manifest))) (manifest-entries manifest)))
(define (manifest-lookup-package manifest name) (define* (manifest-lookup-package manifest name #:optional version)
"Return as a monadic value the first package or store path referenced by "Return as a monadic value the first package or store path referenced by
MANIFEST that named NAME, or #f if not found." MANIFEST that is named NAME and optionally has the given VERSION prefix, or #f
if not found."
;; Return as a monadic value the package or store path referenced by the ;; Return as a monadic value the package or store path referenced by the
;; manifest ENTRY, or #f if not referenced. ;; manifest ENTRY, or #f if not referenced.
(define (entry-lookup-package entry) (define (entry-lookup-package entry)
(define (find-among-inputs inputs) (define (find-among-inputs inputs)
(find (lambda (input) (find (lambda (input)
(and (package? input) (and (package? input)
(equal? name (package-name input)))) (equal? name (package-name input))
(if version
(string-prefix? version (package-version input))
#t)))
inputs)) inputs))
(define (find-among-store-items items) (define (find-among-store-items items)
(find (lambda (item) (find (lambda (item)
(equal? name (package-name->name+version (let-values (((pkg-name pkg-version)
(package-name->name+version
(store-path-package-name item)))) (store-path-package-name item))))
(and (equal? name pkg-name)
(if version
(string-prefix? version pkg-version)
#t))))
items)) items))
;; TODO: Factorize. ;; TODO: Factorize.