From 37e1ab9d96d2f4b51bf50570ae816c513b50d6f3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 30 Jan 2015 07:26:09 -0500
Subject: package: Add %all-packages.

* guix-web/package.scm (%all-packages): New variable.
* guix-web/view.scm (all-packages-json): Use it.
---
 guix-web/package.scm | 6 +++++-
 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))
-- 
cgit v1.2.3