 |
Write more error messages to stderr. - pee - Pee a password manager;Pee - becau… |
 |
git clone git://vernunftzentrum.de/pee.git |
 |
Log |
|
Files |
|
Refs |
|
LICENSE |
|
--- |
|
commit 5090a86785a73a89d30da9ef24aa32bcb85a2873 |
|
parent 8d4a716c3cd27de6b70d6f6d2e35b2c6eece5d46 |
|
Author: Christian Kellermann <[email protected]> |
|
Date: Mon, 18 Jul 2016 09:17:33 +0200 |
|
|
|
Write more error messages to stderr. |
|
|
|
Thanks go to Kooda for this patch. |
|
|
|
Diffstat: |
|
pee.scm | 6 +++--- |
|
|
|
1 file changed, 3 insertions(+), 3 deletions(-) |
|
--- |
|
diff --git a/pee.scm b/pee.scm |
|
@@ -321,7 +321,7 @@ |
|
(alist-update account (list user password comment (… |
|
p) |
|
(print "Entry '" account "' has been updated.")))) |
|
- (else (print "Error: Entry for '" account "' not found.") |
|
+ (else (fprintf (current-error-port) "Error: Entry for '~a' not found.~… |
|
(exit 1)))) |
|
|
|
(define (do-delete db-name db p account) |
|
@@ -332,7 +332,7 @@ |
|
(encrypt-file db-name (alist-delete account db equal?) p) |
|
(print "Entry '" account "' deleted.")) |
|
(else (print "Nothing done."))))) |
|
- (else (print "Error: Entry for '" account "' not found") |
|
+ (else (fprintf (current-error-port) "Error: Entry for '~a' not found.~… |
|
(exit 1)))) |
|
|
|
(define (do-list db account) |
|
@@ -361,7 +361,7 @@ |
|
(when (terminal-port? (current-output-port)) |
|
(newline)))) |
|
(else |
|
- (print "Error: password for " e " not found.") |
|
+ (fprintf (current-error-port) "Error: password for '~a' not found.~%"… |
|
(exit 1)))) |
|
|
|
(define (do-init db-name content) |
