branch: elpa/hyperdrive
commit df4da23927ee190892a0ca84a3669bd9b8f89d69
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-new) Remove old workaround for fixed plz issue
---
hyperdrive.el | 13 ++++---------
1 file changed, 4 insertions(+), 9 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 2a1e0f4c50..1c28187dac 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -135,15 +135,10 @@ Return version if gateway is running; otherwise signal an
error."
If SEED is not currently used as the petname for another
hyperdrive, the new hyperdrive's petname will be set to SEED."
(interactive (list (h/read-name :prompt "New hyperdrive seed")))
- (let* ((response (h/api 'post (concat "hyper://localhost/?key="
(url-hexify-string seed))))
- (url (progn
- ;; NOTE: Working around issue in plz whereby the
- ;; stderr process sentinel sometimes leaves "stderr
- ;; finished" garbage in the response body in older
- ;; Emacs versions. See:
<https://github.com/alphapapa/plz.el/issues/23>.
- (string-match (rx bos (group "hyper://" (1+ nonl))) response)
- (match-string 1 response)))
- (hyperdrive (he/hyperdrive (h/url-entry url))))
+ (pcase-let* (((cl-struct plz-response (body url))
+ (h/api 'post (concat "hyper://localhost/?key="
+ (url-hexify-string seed))))
+ (hyperdrive (he/hyperdrive (h/url-entry url))))
(setf (h/seed hyperdrive) seed)
(setf (h/writablep hyperdrive) t)
(unwind-protect
