From f912945c1bdf14ce9c16a173096da42b605e8dbf Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 30 Sep 2015 02:17:05 -0400 Subject: [PATCH] Not so noisy when not modifying unchanged S3 objects --- src/static.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/static.rkt b/src/static.rkt index c5c2024..5b99e71 100644 --- a/src/static.rkt +++ b/src/static.rkt @@ -171,7 +171,9 @@ (define relative-path (absolute-path->relative-path absolute-path)) (define new-md5 (md5 content-bytes)) (if (equal? new-md5 (hash-ref index relative-path #f)) - (log-info "Not uploading ~a to S3, since MD5 has not changed" relative-path) + (begin + ;; (log-info "Not uploading ~a to S3, since MD5 has not changed" relative-path) + (void)) (begin (log-info "Uploading ~a to S3; new MD5 = ~a" relative-path new-md5) (put/bytes (string-append aws-s3-bucket+path relative-path)