branch: elpa/hyperdrive
commit 5291373a40cc55e1c3c60bae5386eaea6fbffc23
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h//fill-listing-entries) Fill blocks, blocks-downloaded
---
hyperdrive-lib.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 5b0419f690..83704d2d25 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -740,15 +740,21 @@ LISTING should be an alist based on the JSON retrieved
in, e.g.,
`hyperdrive-dir-handler'. Fills existent version ranges for each
entry as a side-effect."
(mapcar
- (pcase-lambda ((map seq key value))
+ (pcase-lambda ((map seq key value blockLengthDownloaded))
(let* ((mtime (map-elt (map-elt value 'metadata) 'mtime))
(size (map-elt (map-elt value 'blob) 'byteLength))
+ (block-length (map-elt (map-elt value 'blob) 'blockLength))
(entry (he/create
:hyperdrive hyperdrive :path key :version version)))
(when mtime ; mtime is milliseconds since epoch
(setf (he/mtime entry) (seconds-to-time (/ mtime 1000.0))))
(when size
(setf (he/size entry) size))
+ (when block-length
+ (setf (map-elt (he/etc entry) 'block-length) block-length))
+ (when blockLengthDownloaded
+ (setf (map-elt (he/etc entry) 'block-length-downloaded)
+ blockLengthDownloaded))
(when seq
;; seq is the hyperdrive version *before* the entry was added/modified
(hyperdrive-update-existent-version-range entry (1+ seq)))
