ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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

19
guix/profiles.scm
View file

@ -472,21 +472,30 @@ (define (manifest-inputs manifest)
(cons (gexp-input thing output) deps)))
(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
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
;; manifest ENTRY, or #f if not referenced.
(define (entry-lookup-package entry)
(define (find-among-inputs inputs)
(find (lambda (input)
(and (package? input)
(equal? name (package-name input))))
(equal? name (package-name input))
(if version
(string-prefix? version (package-version input))
#t)))
inputs))
(define (find-among-store-items items)
(find (lambda (item)
(equal? name (package-name->name+version
(store-path-package-name item))))
(let-values (((pkg-name pkg-version)
(package-name->name+version
(store-path-package-name item))))
(and (equal? name pkg-name)
(if version
(string-prefix? version pkg-version)
#t))))
items))
;; TODO: Factorize.