[nongnu] elpa/hyperdrive e2e341cd14 27/31: Change: (hyperdrive-upload-file) Send Last-Modified header

[ELPA Syncer]

branch: elpa/hyperdrive
commit e2e341cd14ecc53ad8c75205690e354e429f7282
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (hyperdrive-upload-file) Send Last-Modified header
---
 hyperdrive.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index e2fe787ec4..c94e1c97a9 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -663,9 +663,15 @@ After successful upload, call THEN.  When QUEUE, use it."
                        (hyperdrive-read-entry :predicate #'hyperdrive-writablep
                                               :default-path 
(file-name-nondirectory filename)
                                               :latest-version t))))
-  (let ((url (hyperdrive-entry-url entry)))
+  (let ((url (hyperdrive-entry-url entry))
+        (last-modified (let ((system-time-locale "C"))
+                         (format-time-string "%Y-%m-%dT%T.%3NZ"
+                                             ;; "%a, %-d %b %Y %T %Z"
+                                             (file-attribute-modification-time
+                                              (file-attributes filename)) t))))
     (hyperdrive-api 'put url :queue queue
       :body `(file ,filename)
+      :headers `(("Last-Modified" . ,last-modified))
       :then then)
     (unless queue
       (hyperdrive-message "Uploading to \"%s\"..." url))))