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

meta/new-web/sync: add --save-temps flag

Browse Source
This commit is contained in:
Matthew Flatt 2014-05-06 14:34:22 -06:00
parent 6567ebff59
commit 6f259fbd42
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/plt-services/meta/new-web/sync.rkt
View File

@ -7,12 +7,16 @@
(require racket/cmdline) (require racket/cmdline)
(define dry-run? #f) (define dry-run? #f)
(define save-temps? #f)
(command-line (command-line
#:once-each #:once-each
[("--dry-run") "Don't actually upload" [("--dry-run") "Don't actually upload"
(printf "Dry-run mode enabled\n") (printf "Dry-run mode enabled\n")
(set! dry-run? #t)]) (set! dry-run? #t)]
[("--save-temps") "Preserve generated files"
(printf "Saving generated files\n")
(set! save-temps? #t)])
;; Manually check package install and version: ;; Manually check package install and version:
(define s3-sync-pkg "s3-sync") (define s3-sync-pkg "s3-sync")
@ -82,4 +86,7 @@
;; ---------------------------------------- ;; ----------------------------------------
(current-directory orig-dir) (current-directory orig-dir)
(delete-directory/files tmp-dir)
(if save-temps?
(printf "Files saved in ~a\n" tmp-dir)
(delete-directory/files tmp-dir))