From 12f76adfaaa1754262e55cd7d08627b87fdc4e6a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 16 May 2021 15:19:54 -0700 Subject: INFORMAT when don't upload data as remote cache has a >= version Signed-off-by: Sean Whitton --- src/data.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/data.lisp') diff --git a/src/data.lisp b/src/data.lisp index fdd3333..057b915 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -337,7 +337,10 @@ CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM." (connection-upload connection data) (record-cached-data iden1 iden2 (data-version data)))) else if highest-remote-version - do (record-cached-data iden1 iden2 highest-remote-version) + do (informat 3 "~&Not uploading ~S | ~S ver ~S as remote has ~S" + iden1 iden2 + highest-local-version highest-remote-version) + (record-cached-data iden1 iden2 highest-remote-version) else do (error 'missing-data :iden1 iden1 :iden2 iden2)))) (defun try-get-file-mime-type (file) -- cgit v1.2.3