From be74b4432a8e187e21c03d71eaa07a6855519247 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Wed, 20 Jul 2022 16:52:39 +0530 Subject: 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. --- bin/tissue | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) (limited to 'bin') diff --git a/bin/tissue b/bin/tissue index 2170501..98073cb 100755 --- a/bin/tissue +++ b/bin/tissue @@ -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* -- cgit v1.2.3