[nongnu] elpa/hyperdrive 6ef425d194 06/14: Change: (h/menu-bar-menu) Use h/safe-string

[ELPA Syncer]

branch: elpa/hyperdrive
commit 6ef425d194c79c15a29bf7455bee1816ca25c54c
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (h/menu-bar-menu) Use h/safe-string
---
 hyperdrive.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 8e4345cfca..4d9bf93758 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1022,9 +1022,7 @@ The return value of this function is the retrieval 
buffer."
                         :help "Mark hyperdrive as safe or not"
                         :label
                         (format-message "Mark as Safe: `%s'"
-                                        (if (alist-get 'safep (h/etc drive))
-                                            "safe"
-                                          "unsafe")))
+                                        (h/safe-string drive)))
                 "---"
                 (vector "Purge"
                         `(lambda ()