guix package: '-l' correctly handles zero-generation profiles.
* guix/scripts/package.scm (process-query) <'list-generations>: Properly handle the case where 'profile-generations' returns the empty list.
This commit is contained in:
parent
edbe07cd67
commit
561f4e4500
|
@ -713,9 +713,12 @@ processed, #f otherwise."
|
||||||
(raise (condition (&profile-not-found-error
|
(raise (condition (&profile-not-found-error
|
||||||
(profile profile)))))
|
(profile profile)))))
|
||||||
((string-null? pattern)
|
((string-null? pattern)
|
||||||
(list-generation display-profile-content
|
(match (profile-generations profile)
|
||||||
(car (profile-generations profile)))
|
(()
|
||||||
(diff-profiles profile (profile-generations profile)))
|
#t)
|
||||||
|
((first rest ...)
|
||||||
|
(list-generation display-profile-content first)
|
||||||
|
(diff-profiles profile (cons first rest)))))
|
||||||
((matching-generations pattern profile)
|
((matching-generations pattern profile)
|
||||||
=>
|
=>
|
||||||
(lambda (numbers)
|
(lambda (numbers)
|
||||||
|
|
Loading…
Reference in New Issue