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

Sometimes, dependencies are not simple string package-names

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-25 16:08:19 -04:00
parent 4dc2382054
commit b30a402c5c
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/site.rkt
View File

@ -11,6 +11,7 @@
(require racket/date) (require racket/date)
(require racket/string) (require racket/string)
(require racket/port) (require racket/port)
(require (only-in racket/list filter-map))
(require net/url) (require net/url)
(require net/uri-codec) (require net/uri-codec)
(require web-server/servlet) (require web-server/servlet)
@ -632,6 +633,16 @@
`(span ((class ,(format "label label-~a" label-type))) `(span ((class ,(format "label label-~a" label-type)))
,(glyphicon glyphicon-type) " " ,str)))) ,(glyphicon glyphicon-type) " " ,str))))
(define (dependencies->package-names deps)
(filter-map (lambda (dep)
(match dep
[(? string? package-name) package-name]
[(cons (? string? package-name) _) package-name]
[_
(log-warning "dependencies->package-names: unknown dependency format: ~v" dep)
#f]))
deps))
(define (package-page request package-name-str) (define (package-page request package-name-str)
(authentication-wrap (authentication-wrap
#:request request #:request request
@ -747,7 +758,9 @@
(tr (th "Conflicts") (tr (th "Conflicts")
(td ,(package-links (package-conflicts pkg)))) (td ,(package-links (package-conflicts pkg))))
(tr (th "Dependencies") (tr (th "Dependencies")
(td ,(package-links (package-dependencies pkg)))) (td ,(package-links
(dependencies->package-names
(package-dependencies pkg)))))
(tr (th "Most recent build results") (tr (th "Most recent build results")
(td (ul ((class "build-results")) (td (ul ((class "build-results"))
,@(maybe-splice ,@(maybe-splice