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

Include pkg authors in status web page.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-07-08 10:09:40 -04:00 committed by Matthew Flatt
parent 77f2a02149
commit f98a912e0c
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plt-services/meta/pkg-build/main.rkt
View File

@ -405,6 +405,7 @@
installed-pkgs)) installed-pkgs))
(define (pkg-checksum pkg) (hash-ref (hash-ref pkg-details pkg) 'checksum "")) (define (pkg-checksum pkg) (hash-ref (hash-ref pkg-details pkg) 'checksum ""))
(define (pkg-author pkg) (hash-ref (hash-ref pkg-details pkg) 'author ""))
(define (pkg-checksum-file pkg) (build-path built-pkgs-dir (~a pkg ".orig-CHECKSUM"))) (define (pkg-checksum-file pkg) (build-path built-pkgs-dir (~a pkg ".orig-CHECKSUM")))
(define (pkg-zip-file pkg) (build-path built-pkgs-dir (~a pkg ".zip"))) (define (pkg-zip-file pkg) (build-path built-pkgs-dir (~a pkg ".zip")))
(define (pkg-zip-checksum-file pkg) (build-path built-pkgs-dir (~a pkg ".zip.CHECKSUM"))) (define (pkg-zip-checksum-file pkg) (build-path built-pkgs-dir (~a pkg ".zip.CHECKSUM")))
@ -1101,6 +1102,7 @@
(doc/salvage doc path)) (doc/salvage doc path))
(doc/none doc)) (doc/none doc))
(doc/main doc path))) (doc/main doc path)))
'author (pkg-author pkg)
'conflicts-log (and conflicts? 'conflicts-log (and conflicts?
(if (set-member? conflict-pkgs pkg) (if (set-member? conflict-pkgs pkg)
"conflicts" "conflicts"

2
pkgs/plt-services/meta/pkg-build/summary.rkt
View File

@ -45,8 +45,10 @@
'success) 'success)
'unknown)) 'unknown))
(define docs (hash-ref ht 'docs)) (define docs (hash-ref ht 'docs))
(define author (hash-ref ht 'author))
(define conflicts-log (hash-ref ht 'conflicts-log)) (define conflicts-log (hash-ref ht 'conflicts-log))
(tr (td pkg) (tr (td pkg)
(td author)
(td (if (null? docs) (td (if (null? docs)
"" ""
(list (list