ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 21:49:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix package: '-l' correctly handles zero-generation profiles.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/scripts/package.scm
View file

@ -713,9 +713,12 @@ (define (diff-profiles profile numbers)
(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)