diff options
| author | Arun Isaac | 2022-07-20 16:52:39 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-20 17:45:45 +0530 |
| commit | be74b4432a8e187e21c03d71eaa07a6855519247 (patch) | |
| tree | ac381c80147e4e525b568a189c1d57368c2097fe /bin | |
| parent | 3ccf00c699de35d409bf8152d16617f54f97e4f1 (diff) | |
| download | tissue-be74b4432a8e187e21c03d71eaa07a6855519247.tar.gz tissue-be74b4432a8e187e21c03d71eaa07a6855519247.tar.lz tissue-be74b4432a8e187e21c03d71eaa07a6855519247.zip | |
bin: Do not print canonical paths when pulling.
`tissue pull' may be run in CI with the logs getting published. It is
better to not expose the canonical paths in such public logs.
* bin/tissue (pull): Do not print canonical paths.
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/tissue | 19 |
1 files changed, 5 insertions, 14 deletions
@@ -347,17 +347,14 @@ HOSTNAME." ;; HEAD is already up to date ;; with remote HEAD. (format (current-error-port) - "~a is already up to date.~%" - (canonicalize-path repository-directory)) + "Repository is already up to date.~%") ;; Fast-forward local HEAD. (begin (reference-set-target! (reference-lookup repository head) (reference-name->oid repository remote-head)) (format (current-error-port) - "Pulled latest changes from ~a into ~a~%" - upstream-repository - (canonicalize-path repository-directory))))) + "Pulled latest changes.~%")))) repository) ;; Clone repository if it is not already. (begin @@ -366,9 +363,7 @@ HOSTNAME." repository-directory (clone-options #:bare? #t)))) (format (current-error-port) - "Cloned ~a into ~a~%" - upstream-repository - (canonicalize-path repository-directory)) + "Cloned upstream repository.~%") repository))))) (let ((config (load-config))) (parameterize ((%aliases (tissue-configuration-aliases config)) @@ -377,9 +372,7 @@ HOSTNAME." (let ((xapian-directory "xapian")) (index xapian-directory) (format (current-error-port) - "Indexed ~a at ~a~%" - (canonicalize-path repository-directory) - (canonicalize-path xapian-directory))) + "Indexed latest changes.~%")) ;; Build website. (let ((website-directory "website")) (guard (c (else (format (current-error-port) @@ -396,9 +389,7 @@ HOSTNAME." website-directory) (chmod website-directory #o755)))) (format (current-error-port) - "Built website for ~a at ~a~%" - hostname - (canonicalize-path website-directory)))))))))))) + "Built website.~%"))))))))))) (define tissue-pull (match-lambda* |