diff --git a/pkgs/plt-services/meta/pkg-build/main.rkt b/pkgs/plt-services/meta/pkg-build/main.rkt index 1cf51b7f75..cfdaa2d6c7 100644 --- a/pkgs/plt-services/meta/pkg-build/main.rkt +++ b/pkgs/plt-services/meta/pkg-build/main.rkt @@ -405,6 +405,7 @@ installed-pkgs)) (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-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"))) @@ -1101,6 +1102,7 @@ (doc/salvage doc path)) (doc/none doc)) (doc/main doc path))) + 'author (pkg-author pkg) 'conflicts-log (and conflicts? (if (set-member? conflict-pkgs pkg) "conflicts" diff --git a/pkgs/plt-services/meta/pkg-build/summary.rkt b/pkgs/plt-services/meta/pkg-build/summary.rkt index 52f93f4250..45903c86b5 100644 --- a/pkgs/plt-services/meta/pkg-build/summary.rkt +++ b/pkgs/plt-services/meta/pkg-build/summary.rkt @@ -45,8 +45,10 @@ 'success) 'unknown)) (define docs (hash-ref ht 'docs)) + (define author (hash-ref ht 'author)) (define conflicts-log (hash-ref ht 'conflicts-log)) (tr (td pkg) + (td author) (td (if (null? docs) "" (list