TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

guix package: Use 'profile-generations'.

Browse source 
* guix/scripts/package.scm (guix-package)[process-actions]: Use
  'profile-generations' instead of the equivalent code.
This commit is contained in:
Alex Kost 2014-09-21 14:25:56 +04:00
parent f452e8ff10
commit 886cf584db
1 changed files with 4 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/scripts/package.scm
View file

@ -716,12 +716,9 @@ (define (delete-generation number)
(leave (_ "profile '~a' does not exist~%")
profile))
((string-null? pattern)
(let ((numbers (generation-numbers profile)))
(if (equal? numbers '(0))
(exit 0)
(for-each display-and-delete
(delete current-generation-number
numbers)))))
(for-each display-and-delete
(delete current-generation-number
(profile-generations profile))))
;; Do not delete the zeroth generation.
((equal? 0 (string->number pattern))
(exit 0))
@ -828,11 +825,7 @@ (define (list-generation number)
(leave (_ "profile '~a' does not exist~%")
profile))
((string-null? pattern)
(let ((numbers (generation-numbers profile)))
(leave-on-EPIPE
(if (equal? numbers '(0))
(exit 0)
(for-each list-generation numbers)))))
(for-each list-generation (profile-generations profile)))
((matching-generations pattern profile)
=>
(lambda (numbers)