diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-16 15:19:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 12:52:26 -0700 |
| commit | 12f76adfaaa1754262e55cd7d08627b87fdc4e6a (patch) | |
| tree | 68c368c38c3c4c54655a146ac9ea00e8c64a3ce9 /src/data.lisp | |
| parent | 0dc93f41c87256a1bab12975e98ebbe2f9426ffa (diff) | |
| download | consfigurator-12f76adfaaa1754262e55cd7d08627b87fdc4e6a.tar.gz | |
INFORMAT when don't upload data as remote cache has a >= version
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
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) |