Переглянути джерело

profiles: Add 'profile-generations'.

* guix/profiles.scm (profile-generations): New procedure.
gn-latest-20200428
Alex Kost 6 роки тому
джерело
коміт
f452e8ff10
1 змінених файлів з 8 додано та 0 видалено
  1. +8
    -0
      guix/profiles.scm

+ 8
- 0
guix/profiles.scm Переглянути файл

@@ -70,6 +70,7 @@
profile-derivation
generation-number
generation-numbers
profile-generations
previous-generation-number
generation-time
generation-file-name))
@@ -561,6 +562,13 @@ former profiles were found."
profiles)
<))))

(define (profile-generations profile)
"Return a list of PROFILE's generations."
(let ((generations (generation-numbers profile)))
(if (equal? generations '(0))
'()
generations)))

(define (previous-generation-number profile number)
"Return the number of the generation before generation NUMBER of
PROFILE, or 0 if none exists. It could be NUMBER - 1, but it's not the


Завантаження…
Відмінити
Зберегти