[nongnu] elpa/hyperdrive 5898ac0108 1/4: Chore/Fix: Address recent compiler warnings

[ELPA Syncer]

branch: elpa/hyperdrive
commit 5898ac01085aa7d20b258bd2aa5cf2794906be3f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Chore/Fix: Address recent compiler warnings
---
 hyperdrive-dir.el | 2 +-
 hyperdrive-lib.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 226edd4c02..ef3b0f3df9 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -39,7 +39,7 @@
 If THEN, call it in the directory buffer with no arguments."
   ;; NOTE: ENTRY is not necessarily "filled" yet.
   (pcase-let*
-      (((cl-struct hyperdrive-entry hyperdrive path version) directory-entry)
+      (((cl-struct hyperdrive-entry hyperdrive version) directory-entry)
        (url (he/url directory-entry))
        (header (progn
                  ;; Fill metadata first to get the current nickname.
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index a2c50dc0c0..fa3e64e9b3 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -708,7 +708,7 @@ 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 metadata))
+   (pcase-lambda ((map seq key value))
      (let* ((mtime (map-elt (map-elt value 'metadata) 'mtime))
             (size (map-elt (map-elt value 'blob) 'byteLength))
             (entry (he/create