branch: elpa/hyperdrive
commit 019c9f3c6a041e63b5b14fe87d45093358f9e406
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (h//fill) Only fill version range when Etag is non-nil
---
hyperdrive-lib.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 281e1e1e84..c2ff1f70d2 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -725,17 +725,17 @@ Returns filled ENTRY."
;; but no public-key.
(cl-pushnew domain (h/domains (he/hyperdrive entry)) :test
#'equal)))
(setf (h/public-key hyperdrive) public-key))
- (if (and (h//entry-directory-p entry)
- (null (he/version entry)))
- ;; Version-less directory HEAD/GET request ETag header always have the
- ;; hyperdrive's latest version. We don't currently store
- ;; version ranges for directories (since they don't
- ;; technically have versions in hyperdrive).
- (h//fill-latest-version hyperdrive headers)
- ;; File HEAD/GET request ETag header does not retrieve the
- ;; hyperdrive's latest version, so `h/update-existent-version-range'
- ;; will not necessarily fill in the entry's last range.
- (when etag
+ (when etag
+ (if (and (h//entry-directory-p entry)
+ (null (he/version entry)))
+ ;; Version-less directory HEAD/GET request ETag header always have
the
+ ;; hyperdrive's latest version. We don't currently store
+ ;; version ranges for directories (since they don't
+ ;; technically have versions in hyperdrive).
+ (h//fill-latest-version hyperdrive headers)
+ ;; File HEAD/GET request ETag header does not retrieve the
+ ;; hyperdrive's latest version, so `h/update-existent-version-range'
+ ;; will not necessarily fill in the entry's last range.
(h/update-existent-version-range entry (string-to-number etag))))
entry))
