branch: elpa/hyperdrive
commit 4da7a7d9b43767108c5c932f80ab2540857eab7d
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>

    Tidy: (h/gateway-url-and-hashes) Rename from h/gateway-url-alist
---
 CONTRIBUTING.org | 2 +-
 hyperdrive.el    | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/CONTRIBUTING.org b/CONTRIBUTING.org
index 2784442047..dc80a49995 100644
--- a/CONTRIBUTING.org
+++ b/CONTRIBUTING.org
@@ -74,7 +74,7 @@ These checklists should be followed when releasing new 
versions:
 
 ** hyper-gateway-ushin version numbers
 
-+ [ ] [[file:hyperdrive.el::(defvar h/gateway-url-alist][h/gateway-url-alist v 
ariable]]
++ [ ] [[file:hyperdrive.el::(defvar 
h/gateway-urls-and-hashes][h/gateway-urls-and-hashes variable]]
 + [ ] [[file:hyperdrive-vars.el::defvar h/gateway-version-expected 
"3.7.0"][h/gateway-version-expected variable]]
 
 *** Getting ~sha256sum~ for each release
diff --git a/hyperdrive.el b/hyperdrive.el
index e24e8338a5..f9d19891d5 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1281,7 +1281,7 @@ Intended for relative (i.e. non-full) URLs."
 
 ;;;;; Installation
 
-(defvar h/gateway-url-alist
+(defvar h/gateway-urls-and-hashes
   '((gnu/linux
      ( :url 
"https://codeberg.org/USHIN/hyper-gateway-ushin/releases/download/v3.8.0/hyper-gateway-ushin-linux";
        :sha256 
"8ff669bd378e88a3c80d65861f4088071852afaedf7bba56c88c1a162ed9e4f3")
@@ -1313,7 +1313,7 @@ gateway version."
       (unless (yes-or-no-p "Reinstall/upgrade hyper-gateway-ushin? ")
         (user-error "Not reinstalling/upgrading; aborted"))))
   (setf h/install-in-progress-p t)
-  (let ((urls-and-hashes (alist-get system-type h/gateway-url-alist)))
+  (let ((urls-and-hashes (alist-get system-type h/gateway-urls-and-hashes)))
     (cl-labels
         ((try ()
            (if-let ((url-and-hash (pop urls-and-hashes)))
@@ -1380,7 +1380,7 @@ gateway version."
 ;;     (let* ((file-hash (with-temp-buffer
 ;;                          (insert-file-contents-literally file-name)
 ;;                          (secure-hash 'sha256 (current-buffer))))
-;;            (urls-and-hashes (alist-get system-type h/gateway-url-alist)))
+;;            (urls-and-hashes (alist-get system-type 
h/gateway-urls-and-hashes)))
 ;;       (cl-loop for pair in urls-and-hashes
 ;;                for expected-hash = (plist-get pair :sha256)
 ;;                thereis (equal expected-hash file-hash)))))

Reply via email to