From 637782130fcc443d6d13d6a7167f36e71d075fbc Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 5 Jun 2021 16:10:24 +0200 Subject: [PATCH] ambrevar/storage: Fix sync-all. --- .local/share/common-lisp/source/ambrevar/storage.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/storage.lisp b/.local/share/common-lisp/source/ambrevar/storage.lisp index d8adfbcf..67e3fa5c 100644 --- a/.local/share/common-lisp/source/ambrevar/storage.lisp +++ b/.local/share/common-lisp/source/ambrevar/storage.lisp @@ -256,7 +256,9 @@ If DESTINATION ends with '.gpg', it gets GPG-encrypted." (defun sync-all () ; REVIEW: Optionally call `sync-gpg-key'? (dolist (op '(write-roots-index notmuch-tags - stowed-saves - project-status)) + stowed-saves)) (log:info "~a" op) - (funcall op))) + (funcall op)) + ;; Run last to get inspectable return value: + (log:info "~a" 'project-statuses) + (project-statuses))