branch: elpa/hyperdrive
commit e6cca3ccc90fff936e4f366f84578de52b3218c1
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@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)
