diff options
Diffstat (limited to 'guix-web/package.scm')
-rw-r--r-- | guix-web/package.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guix-web/package.scm b/guix-web/package.scm index ae7c152..def44aa 100644 --- a/guix-web/package.scm +++ b/guix-web/package.scm @@ -26,7 +26,8 @@ #:use-module (guix utils) #:use-module (guix ui) #:use-module (gnu packages) - #:export (package-install)) + #:export (package-install + profile-generations*)) (define %profile (string-append "/usr/var/guix/profiles/per-user/" @@ -53,3 +54,11 @@ (count (length entries))) (switch-symlinks name prof) (switch-symlinks %profile name))))))) + +(define (profile-generations*) + (map (lambda (n) + (cons n (reverse + (manifest-entries + (profile-manifest + (generation-file-name %profile n)))))) + (generation-numbers %profile))) |