From d3f8c75de9ec3e0bbb1343a7653a1fc8c0d1789e Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 13 Apr 2013 15:19:55 -0600 Subject: [PATCH] Adding pkgs/all --- collects/meta/pkg-index/basic/main.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/collects/meta/pkg-index/basic/main.rkt b/collects/meta/pkg-index/basic/main.rkt index 0c11d85daf..6d8177a3a6 100644 --- a/collects/meta/pkg-index/basic/main.rkt +++ b/collects/meta/pkg-index/basic/main.rkt @@ -31,11 +31,16 @@ (td (a ([href ,(get-url display-info n)]) ,n))))))))) (define (write-pkgs req) (response/sexpr (get-pkgs))) + (define (write-pkgs/all req) + (response/sexpr + (for/hash ([n (in-list (get-pkgs))]) + (values n (pkg-name->info n))))) (define-values (dispatch get-url) (dispatch-rules [() list-pkgs] [("") list-pkgs] [("pkgs") write-pkgs] + [("pkgs" "all") write-pkgs/all] [("pkg" (string-arg) "display") display-info] [("pkg" (string-arg)) write-info])) dispatch)