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.
master
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
(profile profile)))))
((string-null? pattern)
(list-generation display-profile-content
(car (profile-generations profile)))
(diff-profiles profile (profile-generations profile)))
(match (profile-generations profile)
(()
#t)
((first rest ...)
(list-generation display-profile-content first)
(diff-profiles profile (cons first rest)))))
((matching-generations pattern profile)
=>
(lambda (numbers)