diff --git a/pollen/private/command.rkt b/pollen/private/command.rkt index b316a54..0092c84 100644 --- a/pollen/private/command.rkt +++ b/pollen/private/command.rkt @@ -130,8 +130,8 @@ version print the version" (current-server-port) (make-publish-di user-publish-path (build-path (find-system-path 'desk-dir) (->path (if (equal? arg-command-name "clone") ; bw compat - "clone" - user-publish-path)))))) + "clone" + user-publish-path)))))) (define (handle-publish directory-maybe rest-args arg-command-name) (define target-path @@ -160,7 +160,7 @@ version print the version" (current-server-port) (make-publish-di (error 'publish "aborted because target directory for publishing (~a) can't contain source directory (~a)" target-dir source-dir)) (when (equal? target-dir (current-directory)) (error 'publish "aborted because target directory for publishing (~a) can't be the same as current directory (~a)" target-dir (current-directory))) - (displayln "publishing ...") + (displayln (format "publishing to ~a ..." target-dir)) (when (directory-exists? target-dir) (delete-directory/files target-dir)) (copy-directory/files source-dir target-dir) @@ -169,7 +169,7 @@ version print the version" (current-server-port) (make-publish-di (and (unpublished-path? p) (not ((setup:extra-published-path?) p)))) (for-each delete-it (find-files delete-from-publish-dir? target-dir))) - (displayln (format "completed to ~a" target-dir))) + (displayln "completed")) (define (handle-unknown command) (if (regexp-match #rx"(shit|fuck)" command) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 743aed5..8251a45 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1460991908 +1460992088