Don't bother uploading unused, large, files to S3
This commit is contained in:
parent
7a5746d9a7
commit
a4f578dcd6
|
@ -16,6 +16,9 @@
|
||||||
(gzip (format "~a/pkgs-all.json" static-path)
|
(gzip (format "~a/pkgs-all.json" static-path)
|
||||||
(format "~a/pkgs-all.json.gz" static-path))
|
(format "~a/pkgs-all.json.gz" static-path))
|
||||||
|
|
||||||
|
(delete-file (format "~a/pkgs-all.json" static-path))
|
||||||
|
(delete-file (format "~a/pkgs-all" static-path))
|
||||||
|
|
||||||
(system* s3cmd-path
|
(system* s3cmd-path
|
||||||
"-c" s3-config
|
"-c" s3-config
|
||||||
"sync"
|
"sync"
|
||||||
|
@ -35,8 +38,6 @@
|
||||||
(format "~a/" static-path)
|
(format "~a/" static-path)
|
||||||
(format "s3://~a/" s3-bucket))
|
(format "s3://~a/" s3-bucket))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(void))
|
(void))
|
||||||
|
|
||||||
(define (upload-pkgs pkgs)
|
(define (upload-pkgs pkgs)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user