diff --git a/pkgs/plt-services/meta/pkg-index/planet-compat/s3.sh b/pkgs/plt-services/meta/pkg-index/planet-compat/s3.sh index 3c8ffdbf39..b8de0cbe2a 100755 --- a/pkgs/plt-services/meta/pkg-index/planet-compat/s3.sh +++ b/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/ diff --git a/pkgs/plt-services/meta/pkg-index/planet-compat/static.rkt b/pkgs/plt-services/meta/pkg-index/planet-compat/static.rkt index 43ffb64d82..f3b9efeabf 100644 --- a/pkgs/plt-services/meta/pkg-index/planet-compat/static.rkt +++ b/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") diff --git a/pkgs/plt-services/meta/pkg-index/planet-compat/update.rkt b/pkgs/plt-services/meta/pkg-index/planet-compat/update.rkt index bd4278cae5..306512ce25 100644 --- a/pkgs/plt-services/meta/pkg-index/planet-compat/update.rkt +++ b/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)