diff options
-rw-r--r-- | shroud/ui/show.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/shroud/ui/show.scm b/shroud/ui/show.scm index 84f0982..fd076eb 100644 --- a/shroud/ui/show.scm +++ b/shroud/ui/show.scm @@ -57,10 +57,13 @@ Show secret named ID.~%") (define (shroud-show config db . args) (let* ((opts (process-args args)) (id (leave-if-false (assq-ref opts 'id) - "No secret ID given")) + "no secret ID given")) (keys (alist-pick opts 'key)) (secret (vhash-ref (secrets-by-id (force db)) id))) + (unless secret + (leave "secret '~a' does not exist" id)) + (match keys (() (for-each (match-lambda |