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:
Ludovic Courtès 2017-07-20 15:27:54 +02:00
parent edbe07cd67
commit 561f4e4500
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 3 deletions

View File

@ -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)