[nongnu] elpa/hyperdrive f1bda470b4 27/42: Change: Remove unnecessary calls to h//fill

[ELPA Syncer]

branch: elpa/hyperdrive
commit f1bda470b42025bf08a3bfe690d6c6ebcd07c1cb
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>

    Change: Remove unnecessary calls to h//fill
---
 hyperdrive-lib.el |  7 ++-----
 hyperdrive.el     | 11 ++---------
 2 files changed, 4 insertions(+), 14 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index ff8f4bf2bb..30181dc6c0 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -790,11 +790,8 @@ entry as a side-effect."
    listing))
 
 (defun h/fill (hyperdrive)
-  "Synchronously fill the latest version slot in HYPERDRIVE.
-Returns the latest version number."
-  (pcase-let (((cl-struct plz-response headers)
-               (he/api 'head (he/create :hyperdrive hyperdrive :path "/"))))
-    (h//fill hyperdrive headers)))
+  "Synchronously fill the latest version slot in HYPERDRIVE."
+  (he/api 'head (he/create :hyperdrive hyperdrive :path "/")))
 
 (defun h//fill (hyperdrive headers)
   "Fill the latest version slot in HYPERDRIVE from HEADERS.
diff --git a/hyperdrive.el b/hyperdrive.el
index f731f368be..7fcd2ef14b 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -276,16 +276,10 @@ Universal prefix argument \\[universal-argument] forces
         (progn
           (cl-callf map-delete (h/metadata hyperdrive) 'name)
           (h/put-metadata hyperdrive
-            :then (pcase-lambda ((cl-struct plz-response headers))
-                    (h//fill hyperdrive headers)
-                    (h/persist hyperdrive)
-                    (funcall then hyperdrive))))
+            :then (lambda (_response) (funcall then hyperdrive))))
       (setf (alist-get 'name (h/metadata hyperdrive)) nickname)
       (h/put-metadata hyperdrive
-        :then (pcase-lambda ((cl-struct plz-response headers))
-                (h//fill hyperdrive headers)
-                (h/persist hyperdrive)
-                (funcall then hyperdrive))))
+        :then (lambda (_response) (funcall then hyperdrive))))
     ;; TODO: Consider refreshing buffer names, directory headers, etc, 
especially host-meta.json entry buffer.
     )
   hyperdrive)
@@ -432,7 +426,6 @@ directory.  Otherwise, or with universal prefix argument
                          ((map etag) headers)
                          (nonexistent-entry (h/copy-tree entry t)))
               (setf (he/version nonexistent-entry) (string-to-number etag))
-              (h//fill (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