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

Not so noisy when not modifying unchanged S3 objects

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-30 02:17:05 -04:00
parent 52bec4651a
commit f912945c1b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/static.rkt
View File

@ -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)