 |
Correct another refactoring error - pee - Pee a password manager;Pee - because … |
 |
git clone git://vernunftzentrum.de/pee.git |
 |
Log |
|
Files |
|
Refs |
|
LICENSE |
|
--- |
|
commit ebacb381fa5bdd4fab0f9a095d0d8b399eed8ba0 |
|
parent 082d3285cd1ef4a7940ffab1ef41727c6a0f943c |
|
Author: Christian Kellermann <[email protected]> |
|
Date: Sat, 9 Jan 2016 17:40:38 +0100 |
|
|
|
Correct another refactoring error |
|
|
|
Diffstat: |
|
pee.scm | 9 +++++---- |
|
|
|
1 file changed, 5 insertions(+), 4 deletions(-) |
|
--- |
|
diff --git a/pee.scm b/pee.scm |
|
@@ -268,16 +268,17 @@ |
|
(alist-update account (list user password comment) … |
|
p) |
|
(print "Entry '" account "' has been updated.")))) |
|
- (else (print "Error> Entry for '" account "' not found.") |
|
+ (else (print "Error: Entry for '" account "' not found.") |
|
(exit 1)))) |
|
|
|
(define (do-delete db-name db p account) |
|
(cond ((alist-ref account db equal?) => |
|
(lambda (e) |
|
(print-without-password (cons account e)) |
|
- (if (ask-yes-or-no "Really delete account?") |
|
- (encrypt-file db-name (alist-delete account db equal?) p) |
|
- (print "Entry '" (car e) "' deleted.")))) |
|
+ (cond ((ask-yes-or-no "Really delete account?") |
|
+ (encrypt-file db-name (alist-delete account db equal?) p) |
|
+ (print "Entry '" (car e) "' deleted.")) |
|
+ (else (print "Nothing done."))))) |
|
(else (print "Error: Entry for '" account "' not found") |
|
(exit 1)))) |
|
