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

meta/pkg-build: minor repair to status messages

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-31 10:28:19 +01:00
parent 30d30ce74c
commit efd7593097
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1088,7 +1088,7 @@
(make-file-or-directory-link doc (build-path doc-dir (~a doc "@" pkg))))] (make-file-or-directory-link doc (build-path doc-dir (~a doc "@" pkg))))]
[else [else
;; Extract successfully built but not fully installed documentation: ;; Extract successfully built but not fully installed documentation:
(printf "Trying to extract ~s docs\n" pkg) (substatus "Trying to extract ~s docs\n" pkg)
(with-handlers ([exn:fail? (lambda (exn) (with-handlers ([exn:fail? (lambda (exn)
(eprintf "~a\n" (exn-message exn)))]) (eprintf "~a\n" (exn-message exn)))])
(extract-documentation (pkg-zip-file pkg) pkg doc-dir))])) (extract-documentation (pkg-zip-file pkg) pkg doc-dir))]))
@ -1108,13 +1108,13 @@
(when (and (list? adds) (when (and (list? adds)
(ormap (lambda (a) (and (pair? a) (eq? (car a) 'doc))) (ormap (lambda (a) (and (pair? a) (eq? (car a) 'doc)))
adds)) adds))
(printf "Trying to salvage ~s docs\n" pkg) (substatus "Trying to salvage ~s docs\n" pkg)
(with-handlers ([exn:fail? (lambda (exn) (with-handlers ([exn:fail? (lambda (exn)
(eprintf "~a\n" (exn-message exn)))]) (eprintf "~a\n" (exn-message exn)))])
(extract-documentation zip-file pkg doc-dir)) (extract-documentation zip-file pkg doc-dir))
(for ([f (in-list (hash-ref prev-docs pkg null))]) (for ([f (in-list (hash-ref prev-docs pkg null))])
(unless (directory-exists? (build-path doc-dir f)) (unless (directory-exists? (build-path doc-dir f))
(printf "Salvaging previously built ~a\n" f) (substatus "Salvaging previously built ~a\n" f)
(copy-directory/files (build-path prev-doc-dir f) (copy-directory/files (build-path prev-doc-dir f)
(build-path doc-dir f))))))) (build-path doc-dir f)))))))