[nongnu] elpa/hyperdrive e6cca3ccc9 19/31: Fix: (hyperdrive-new) :as 'response

[ELPA Syncer]

branch: elpa/hyperdrive
commit e6cca3ccc90fff936e4f366f84578de52b3218c1
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (hyperdrive-new) :as 'response
---
 hyperdrive.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 71017e669a..6ca6f24cef 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -137,7 +137,8 @@ hyperdrive, the new hyperdrive's petname will be set to 
SEED."
   (interactive (list (h/read-name :prompt "New hyperdrive seed")))
   (pcase-let* (((cl-struct plz-response (body url))
                 (h/api 'post (concat "hyper://localhost/?key="
-                                     (url-hexify-string seed))))
+                                     (url-hexify-string seed))
+                       :as 'response))
                (hyperdrive (he/hyperdrive (h/url-entry url))))
     (setf (h/seed hyperdrive) seed)
     (setf (h/writablep hyperdrive) t)