[nongnu] elpa/hyperdrive 0c99211cb6 2/2: Fix: (h/purge-existent-versions) Correctly compare public keys

[ELPA Syncer]

branch: elpa/hyperdrive
commit 0c99211cb63832add7a91849989051fb9f746709
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (h/purge-existent-versions) Correctly compare public keys
---
 hyperdrive-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index b4c32076f2..1cc1453cc7 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -381,7 +381,7 @@ it exists.  Persists ENTRY's hyperdrive.  Invalidates ENTRY 
display."
 (defun h/purge-existent-versions (hyperdrive)
   "Purge all existent versions for HYPERDRIVE."
   (maphash (lambda (key _val)
-             (when (h/equal-p (he/hyperdrive key) hyperdrive)
+             (when (equal (car key) (h/public-key hyperdrive))
                (remhash key h/existent-versions)))
            h/existent-versions)
   (persist-save 'h/existent-versions))