me
/
guix
Archived
1
0
Fork 0
Code

import/utils: recursive-import: Pass on lookup-node's version argument. 

* guix/import/utils.scm (recursive-import)<lookup-node>: Replace the #:VERSION
keyword from RECURSIVE-IMPORT's arguments with the value of VERSION passed to
LOOKUP-NODE.
master
Ricardo Wurmus 2022-12-31 14:26:17 +01:00
parent 973496100d
commit 4d13926064
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/import/utils.scm
View File

@ -599,7 +599,12 @@ to obtain the Guix package name corresponding to the upstream name."
(not (null? (find-packages-by-name (guix-name name) version))))
(define (lookup-node name version)
(let* ((package dependencies (apply repo->guix-package (cons name rest)))
(let* ((pre post (break (cut eq? #:version <>) rest))
(post* (match post
((#:version v . more) more)
(_ post)))
(args (append pre (list #:version version) post*))
(package dependencies (apply repo->guix-package (cons* name args)))
(normalized-deps (map (match-lambda
((name version) (list name version))
(name (list name #f))) dependencies)))