[nongnu] elpa/hyperdrive b6cc722d22 2/6: Change: (hyperdrive-describe) Show safep in describe buffer

[ELPA Syncer]

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

    Change: (hyperdrive-describe) Show safep in describe buffer
---
 hyperdrive-describe.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-describe.el b/hyperdrive-describe.el
index c7cf1baeb9..80c146cd34 100644
--- a/hyperdrive-describe.el
+++ b/hyperdrive-describe.el
@@ -56,7 +56,7 @@ Universal prefix argument \\[universal-argument] forces
       (setq-local h/describe-current-hyperdrive hyperdrive)
       (pcase-let*
           (((cl-struct hyperdrive metadata writablep etc) hyperdrive)
-           ((map disk-usage) etc))
+           ((map disk-usage safep) etc))
         (erase-buffer)
         (insert
          (propertize "Hyperdrive: \n" 'face 'bold)
@@ -65,6 +65,7 @@ Universal prefix argument \\[universal-argument] forces
          (h//format hyperdrive "Petname: %P\n" h/raw-formats)
          (h//format hyperdrive "Nickname: %N\n" h/raw-formats)
          (h//format hyperdrive "Domains: %D\n" h/raw-formats)
+         (format "Safe: %s\n" (if safep "yes" "no"))
          (format "Latest version: %s\n" (h/latest-version hyperdrive))
          (format "Writable: %s\n" (if writablep "yes" "no"))
          (format "Disk usage: %s\n"