Less output

pkgs/plt-services/meta/pkg-index/planet-compat/s3.sh

@@ -5,4 +5,4 @@ PATH=~/local/new-plt/racket/bin:$PATH
 cd ~/local/new-plt/pkgs/plt-services/meta/pkg-index/planet-compat
 racket update.rkt
 racket static.rkt
-s3cmd -c ~/.s3cfg-plt sync --recursive --delete-removed root/cache/ s3://planet-compat/
+s3cmd -c ~/.s3cfg-plt sync --recursive --delete-removed root/cache/ s3://planet-compat.racket-lang.org/

pkgs/plt-services/meta/pkg-index/planet-compat/static.rkt

@@ -41,9 +41,10 @@
   (define (cache url file)
     (define p (build-path cache-dir file))
     (make-directory* (path-only p))
-    (with-output-to-file p
-      #:exists 'replace
-      (λ () ((response-output (dispatch (url->request url))) (current-output-port)))))
+    (void
+     (with-output-to-file p
+       #:exists 'replace
+       (λ () ((response-output (dispatch (url->request url))) (current-output-port))))))
 
   (cache "/" "index.html")
   (cache "/pkgs" "pkgs")

pkgs/plt-services/meta/pkg-index/planet-compat/update.rkt

@@ -227,8 +227,9 @@
           (when-delete?
            (delete-file dest))
           (unless (file-exists? dest)
-            (printf "Downloading ~a\n"
-                    pkg-short)
+            (when #f
+              (printf "Downloading ~a\n"
+                      pkg-short))
             (define pkg-bs
               (call/input-url dl-url get-impure-port
                               (λ (in)