diff options
| -rw-r--r-- | guix-web/package.scm | 6 | ||||
| -rw-r--r-- | guix-web/view.scm | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/guix-web/package.scm b/guix-web/package.scm index def44aa..bf92351 100644 --- a/guix-web/package.scm +++ b/guix-web/package.scm @@ -26,9 +26,13 @@ #:use-module (guix utils) #:use-module (guix ui) #:use-module (gnu packages) - #:export (package-install + #:export (%all-packages + package-install profile-generations*)) +(define %all-packages + (fold-packages cons '())) + (define %profile (string-append "/usr/var/guix/profiles/per-user/" (getenv "USER") "/guix-profile")) diff --git a/guix-web/view.scm b/guix-web/view.scm index 123a1d5..559d275 100644 --- a/guix-web/view.scm +++ b/guix-web/view.scm @@ -115,7 +115,7 @@ '())))) (define (all-packages-json) - (map package->json (fold-packages cons '()))) + (map package->json %all-packages)) (define (view-package-json name) (map (lambda (p) (package->json p #t)) |