[nongnu] elpa/hyperdrive 87442c4896 2/2: Change: (hyperdrive-new) Only persist drive when URL is generated

[ELPA Syncer]

branch: elpa/hyperdrive
commit 87442c4896ad0bfccfc422442d8a3befda889acd
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@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)