branch: elpa/hyperdrive
commit b98cb03078c4907ef5f346bddae235a5a1ce7340
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (h/delete) Update latest version when deleting directories
The hypercore-fetch bug was fixed in 2132311, and released as part of
hypercore-fetch-ushin v9.11.0.
---
hyperdrive.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 9130ddde15..29ce8e3957 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -377,12 +377,9 @@ directory. Otherwise, or with universal prefix argument
(pcase-let* (((cl-struct plz-response headers) response)
((map etag) headers)
(nonexistent-entry (h/copy-tree entry t)))
- (unless (h//entry-directory-p entry)
- ;; FIXME: hypercore-fetch bug doesn't update version
- ;; number when deleting a directory.
- (setf (he/version nonexistent-entry) (string-to-number etag))
- (h//fill-latest-version (he/hyperdrive entry) headers)
- (h/update-nonexistent-version-range nonexistent-entry))
+ (setf (he/version nonexistent-entry) (string-to-number etag))
+ (h//fill-latest-version (he/hyperdrive entry) headers)
+ (h/update-nonexistent-version-range nonexistent-entry)
;; Since there's no way for `h//write-contents' to run when
;; `buffer-modified-p' returns nil, this is a workaround to
ensure that
;; `save-buffer' re-saves files after they've been deleted.
