suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Less output

Browse Source
This commit is contained in:
Jay McCarthy 2013-10-07 09:16:46 -06:00
parent 1d8be6c9f0
commit 1e5ade627b
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,4 +5,4 @@ PATH=~/local/new-plt/racket/bin:$PATH
cd ~/local/new-plt/pkgs/plt-services/meta/pkg-index/planet-compat cd ~/local/new-plt/pkgs/plt-services/meta/pkg-index/planet-compat
racket update.rkt racket update.rkt
racket static.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/

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

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

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

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