summaryrefslogtreecommitdiff
path: root/guix/profiles.scm
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-09-21 14:24:09 +0400
committerAlex Kost <alezost@gmail.com>2014-09-22 13:24:52 +0400
commitf452e8ff10a5ae0e9592a1f7731d198d204c8f69 (patch)
tree52642448ba76b1b5c05078b95f0adbac4273811c /guix/profiles.scm
parentde1c158f32e1d4060daa600a62b68fe22b613424 (diff)
profiles: Add 'profile-generations'.
* guix/profiles.scm (profile-generations): New procedure.
Diffstat (limited to 'guix/profiles.scm')
-rw-r--r--guix/profiles.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index aa88b849e1..18733a6664 100644
--- a/guix/profiles.scm
+++ b/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