raco setup: quieter output on a build step for user-scope docs

2013-11-20 07:59:35 -07:00 · 2013-11-20 07:59:35 -07:00 · 0a2e3ad78b
commit 0a2e3ad78b
parent 1d8a2516b2
1 changed files with 2 additions and 1 deletions
--- a/pkgs/racket-pkgs/racket-index/setup/scribble.rkt
+++ b/pkgs/racket-pkgs/racket-index/setup/scribble.rkt
@ -1148,7 +1148,8 @@
                              shared-empty-script-files))])
      (define dest (build-path dest-dir f))
      (unless (file-exists? dest)
-        (setup-printf "installing" "~a" dest)
+        (when (or (verbose) main?)
+          (setup-printf "installing" "~a" dest))
        (make-directory* dest-dir)
        (call-with-output-file* dest void)))
    (hash-set! done dir #t)))