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))))]
[else
;; 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)
(eprintf "~a\n" (exn-message exn)))])
(extract-documentation (pkg-zip-file pkg) pkg doc-dir))]))
@ -1108,13 +1108,13 @@
(when (and (list? adds)
(ormap (lambda (a) (and (pair? a) (eq? (car a) 'doc)))
adds))
(printf "Trying to salvage ~s docs\n" pkg)
(substatus "Trying to salvage ~s docs\n" pkg)
(with-handlers ([exn:fail? (lambda (exn)
(eprintf "~a\n" (exn-message exn)))])
(extract-documentation zip-file pkg doc-dir))
(for ([f (in-list (hash-ref prev-docs pkg null))])
(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)
(build-path doc-dir f)))))))