[nongnu] elpa/hyperdrive ff828ee988 07/14: Change: (h/mark-as-safe) Use h/safe-string

[ELPA Syncer]

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

    Change: (h/mark-as-safe) Use h/safe-string
---
 hyperdrive.el | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 4d9bf93758..42e1b7a4c6 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -156,15 +156,11 @@ hyperdrive, the new hyperdrive's petname will be set to 
SEED."
 Interactively, prompt for hyperdrive and action."
   (interactive
    (pcase-let* ((hyperdrive (h/complete-hyperdrive))
-                ((cl-struct hyperdrive (etc (map safep))) hyperdrive)
                 (mark-safe-p
                  (pcase (read-answer
                          (format "Mark hyperdrive `%s' as: (currently: %s) "
                                  (h//format-hyperdrive hyperdrive)
-                                 (pcase-exhaustive safep
-                                   ('t (propertize "safe" 'face 'success))
-                                   ('nil (propertize "unsafe" 'face 'error))
-                                   ('unknown (propertize "unknown" 'face 
'warning))))
+                                 (h/safe-string hyperdrive))
                          '(("safe" ?S "mark as safe")
                            ("unsafe" ?U "mark as unsafe")
                            ("unknown" ?u "ask again later")
@@ -183,10 +179,7 @@ Interactively, prompt for hyperdrive and action."
        (h/persist hyperdrive)
        (message "Marked hyperdrive `%s' as %s."
                 (h//format-hyperdrive hyperdrive)
-                (pcase-exhaustive safep
-                  ('t (propertize "safe" 'face 'success))
-                  ('nil (propertize "unsafe" 'face 'error))
-                  ('unknown (propertize "unknown" 'face 'warning)))))))
+                (h/safe-string hyperdrive)))))
 
 (defun h/forget-file (entry)
   "Delete local copy of the file or directory contents of ENTRY.