Fix a missing print-without-password in do-delete - pee - Pee a password manager;Pee - because you have to...
 (HTM) git clone git://vernunftzentrum.de/pee.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) LICENSE
       ---
 (DIR) commit 9e7f0ab506153a53572d09812a0330702449f309
 (DIR) parent 54dea32f4471a500d288579e9ac4596f51d92255
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Thu, 14 Jan 2016 11:40:02 +0100
       
       Fix a missing print-without-password in do-delete
       
       Diffstat:
         pee.scm                             |       5 ++++-
       
       1 file changed, 4 insertions(+), 1 deletion(-)
       ---
 (DIR) diff --git a/pee.scm b/pee.scm
       @@ -280,7 +280,10 @@
        (define (do-delete db-name db p account)
          (cond ((alist-ref account db equal?) =>
                 (lambda (e)
       -           (print-without-password (cons account e))
       +           (match-let (((user _ comment last-modified) e))
       +                  (printf "Account: ~a\tUser: ~a\tComment: ~a\tLast changed: ~a~%"
       +                          account user comment
       +                          (time->string (seconds->local-time last-modified) "%Y-%m-%d %H:%M:%S")))
                   (cond ((ask-yes-or-no "Really delete account?")
                          (encrypt-file db-name  (alist-delete account db equal?) p)
                          (print "Entry '" account "' deleted."))