branch: elpa/hyperdrive
commit 7a1d35cfb4d4f51ab5b47a92af0479c94c53db53
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h/upload-file) Calculate file size
---
hyperdrive.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 629994cece..12a35eba60 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -737,6 +737,7 @@ After successful upload, call THEN. When QUEUE, use it."
;; "%a, %-d %b %Y %T %Z"
(file-attribute-modification-time
(file-attributes filename)) t))))
+ (setf (he/size entry) (file-attribute-size (file-attributes filename)))
(he/api 'put entry :queue queue
:body `(file ,filename)
:headers `(("Last-Modified" . ,last-modified))
