ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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