branch: elpa/hyperdrive
commit 87442c4896ad0bfccfc422442d8a3befda889acd
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-new) Only persist drive when URL is generated
---
hyperdrive.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 112043205a..379e8b593a 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -141,6 +141,7 @@ hyperdrive, the new hyperdrive's petname will be set to
SEED."
(url-hexify-string seed))
:as 'response))
(hyperdrive (he/hyperdrive (h/url-entry url))))
+ (unless url (h/error "Unable to create new hyperdrive with seed: %S" seed))
(setf (h/seed hyperdrive) seed)
(setf (h/writablep hyperdrive) t)
(setf (map-elt (h/etc hyperdrive) 'safep) t)
