summaryrefslogtreecommitdiff
path: root/shroud/ui/show.scm
diff options
context:
space:
mode:
authorDavid Thompson <davet@gnu.org>2015-06-10 18:15:56 -0400
committerDavid Thompson <davet@gnu.org>2015-06-10 18:15:56 -0400
commit778963a0da12125e5894e8009bcc91020eb988a5 (patch)
tree042db20cf4d057673ac25ecbd5425fad966265b2 /shroud/ui/show.scm
parent16360f53d7035a184e56bd9a04968a24014350b0 (diff)
Change <secret> to store arbitrary key/value pairs.
* shroud/secret.scm (secret-username, secret-password): Delete. (secret-contents): New accessor. (secret-ref): New procedure. (alist->secret, secret->alist): Use new format.
Diffstat (limited to 'shroud/ui/show.scm')
-rw-r--r--shroud/ui/show.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/shroud/ui/show.scm b/shroud/ui/show.scm
index 88d9ccb..6ad1ba0 100644
--- a/shroud/ui/show.scm
+++ b/shroud/ui/show.scm
@@ -70,10 +70,10 @@ Show secret named ID.~%")
(leave "~a: secret undefined" id))
(if password?
- (display (secret-password secret))
+ (display (secret-ref secret "password"))
(format #t "username: ~a~%password: ~a~%"
- (secret-username secret)
- (secret-password secret)))))
+ (secret-ref secret "username")
+ (secret-ref secret "password")))))
;; We don't alter the database.
db)