suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

package catalog server: fix "pkgs-all" query

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-11 11:05:16 -06:00
parent 49f15cc0a9
commit ad45434c21
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/plt-services/meta/pkg-index/basic/main.rkt
View File

@ -24,12 +24,13 @@
#f]))
(define (pkg-index/basic+versions get-pkgs pkg-name->info)
(define (req-version req) (request-binding/string req "version" #f))
(define (write-info req pkg-name)
(response/sexpr
(pkg-name->info pkg-name
#:version (request-binding/string req "version" #f))))
#:version (req-version req))))
(define (display-info req pkg-name)
(define info (pkg-name->info pkg-name))
(define info (pkg-name->info pkg-name #:version (req-version req)))
(response/xexpr
`(html
(body
@ -50,7 +51,7 @@
(define (write-pkgs/all req)
(response/sexpr
(for/hash ([n (in-list (get-pkgs))])
(values n (pkg-name->info n)))))
(values n (pkg-name->info n #:version (req-version req))))))
(define-values (dispatch get-url)
(dispatch-rules
[() list-pkgs]