[nongnu] elpa/hyperdrive 96326a0222 06/13: Fix: (hyperdrive--mirror) Signal user-error when no files to upload

[ELPA Syncer]

branch: elpa/hyperdrive
commit 96326a0222a2add605a5e09e37e55d168a718b7f
Author: Joseph Turner <joseph@ushin.org>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (hyperdrive--mirror) Signal user-error when no files to upload
---
 hyperdrive-mirror.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 162dbb8082..92c82f5080 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -60,6 +60,8 @@ uploading files, open PARENT-ENTRY."
                             (hyperdrive-open parent-entry)
                             (with-current-buffer (get-buffer-create 
"*hyperdrive-mirror*")
                               (revert-buffer nil t))))))
+    (unless upload-files-and-urls
+      (hyperdrive-user-error "No new/newer files to upload"))
     (pcase-dolist (`(,_id [,status ,file ,url]) upload-files-and-urls)
       (hyperdrive-upload-file file (hyperdrive-url-entry url)
         :queue queue