[nongnu] elpa/hyperdrive 29c70adbf9 08/32: Fix

[ELPA Syncer]

branch: elpa/hyperdrive
commit 29c70adbf9d63be6b626eb5fe0d9451ba57b4179
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix
---
 hyperdrive-lib.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 7551330ba1..3a678a8368 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -955,14 +955,14 @@ DEFAULT and INITIAL-INPUT are passed to `read-string' 
as-is."
                                  collect (cons name (list key tag))))
                (column-choice (read-answer "Sort by column: " choices))
                (`(,accessor ,ascending-predicate ,descending-predicate)
-                (map-elt columns (concat "By " column-choice)))
+                (alist-get (concat "By " column-choice) columns nil nil 
#'equal))
                (direction-choice (read-answer "Sort in direction: "
                                               (list (cons "ascending" (list ?a 
"Ascending"))
                                                     (cons "descending" (list 
?d "Descending")))))
                (predicate (pcase direction-choice
                             ("ascending" ascending-predicate)
                             ("descending" descending-predicate))))
-    (list accessor predicate)))
+    (cons accessor predicate)))
 
 (cl-defun hyperdrive-put-metadata (hyperdrive &key then)
   "Put HYPERDRIVE's metadata into the appropriate file, then call THEN."