mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 22:08:16 -05:00
profiles: Adjust to unintended manifest format change.
Reported by Andreas Enge.
* guix/profiles.scm (sexp->manifest): Adjust to handle unintended format
change introduced in 4ca0b41
.
This commit is contained in:
parent
dfd1d5edf6
commit
d34736c5c3
1 changed files with 14 additions and 6 deletions
|
@ -158,12 +158,20 @@ (define (sexp->manifest sexp)
|
||||||
('packages ((name version output path deps) ...)))
|
('packages ((name version output path deps) ...)))
|
||||||
(manifest
|
(manifest
|
||||||
(map (lambda (name version output path deps)
|
(map (lambda (name version output path deps)
|
||||||
(manifest-entry
|
;; Up to Guix 0.7 included, dependencies were listed as ("gmp"
|
||||||
(name name)
|
;; "/gnu/store/...-gmp") for instance. Discard the 'label' in
|
||||||
(version version)
|
;; such lists.
|
||||||
(output output)
|
(let ((deps (match deps
|
||||||
(item path)
|
(((labels directories) ...)
|
||||||
(dependencies deps)))
|
directories)
|
||||||
|
((directories ...)
|
||||||
|
directories))))
|
||||||
|
(manifest-entry
|
||||||
|
(name name)
|
||||||
|
(version version)
|
||||||
|
(output output)
|
||||||
|
(item path)
|
||||||
|
(dependencies deps))))
|
||||||
name version output path deps)))
|
name version output path deps)))
|
||||||
|
|
||||||
(_
|
(_
|
||||||
|
|
Loading…
Reference in a new issue