summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-07-20 16:52:39 +0530
committerArun Isaac2022-07-20 17:45:45 +0530
commitbe74b4432a8e187e21c03d71eaa07a6855519247 (patch)
treeac381c80147e4e525b568a189c1d57368c2097fe
parent3ccf00c699de35d409bf8152d16617f54f97e4f1 (diff)
downloadtissue-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.
-rwxr-xr-xbin/tissue19
1 files changed, 5 insertions, 14 deletions
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*