From efd7593097b490ae1520ab0636f30ef16662e4ee Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 31 Jul 2014 10:28:19 +0100 Subject: [PATCH] meta/pkg-build: minor repair to status messages --- pkgs/plt-services/meta/pkg-build/main.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/plt-services/meta/pkg-build/main.rkt b/pkgs/plt-services/meta/pkg-build/main.rkt index b80d6f8908..60094ded35 100644 --- a/pkgs/plt-services/meta/pkg-build/main.rkt +++ b/pkgs/plt-services/meta/pkg-build/main.rkt @@ -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)))))))