branch: elpa/hyperdrive
commit 631a533f70946ebba37f46ad955b51fd9ee2a62c
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: Compilation errors
---
hyperdrive-lib.el | 4 ++--
hyperdrive.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 28858f9205..d3db1a1b56 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -993,7 +993,7 @@ HYPERDRIVE's public metadata file."
(metadata (condition-case err
;; TODO: Refactor to use :as 'response-with-buffer and
call he/fill
(pcase-let
- (((cl-struct plz-response headers body)
+ (((cl-struct plz-response body)
(he/api 'get entry :noquery t)))
(with-temp-buffer
(insert body)
@@ -1386,7 +1386,7 @@ Otherwise, return nil. SLOT may be one of
"Load ENTRY's file into an Emacs buffer.
If then, then call THEN with no arguments. Default handler."
(pcase-let*
- (((cl-struct plz-response headers body)
+ (((cl-struct plz-response body)
;; TODO: Handle errors
;; TODO: When plz adds :as 'response-with-buffer, use that.
(he/api 'get entry :noquery t))
diff --git a/hyperdrive.el b/hyperdrive.el
index 01b35dfb25..ff6f595a17 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -200,7 +200,7 @@ modified; file blobs may be recoverable from other peers."
:headers '(("Cache-Control" . "no-store"))
:else (lambda (err)
(h/error "Unable to clear cache for `%s': %S" (he/url entry)
err))
- :then (lambda (response)
+ :then (lambda (_response)
(h/message "Cleared `%s'" (h//format-entry entry))
;; TODO: When file sizes in hyperdrive-dir-mode are colorized
;; based locally downloaded sizes, refresh ewoc entry here.
@@ -819,7 +819,7 @@ The return value of this function is the retrieval buffer."
(pcase-let* ((url (url-recreate-url parsed-url))
;; TODO: When `plz.el' adds :as 'response-with-buffer, use that.
;; response-buffer will contain the loaded HTML, and will be
deleted at the end of `eww-render'.
- ((cl-struct plz-response headers body)
+ ((cl-struct plz-response body)
(he/api 'get (h/url-entry url) :as 'response)))
(with-current-buffer (generate-new-buffer " *hyperdrive-eww*")
(widen)
