Write more error messages to stderr. - 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 5090a86785a73a89d30da9ef24aa32bcb85a2873
(DIR) parent 8d4a716c3cd27de6b70d6f6d2e35b2c6eece5d46
(HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
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(-)
---
(DIR) diff --git a/pee.scm b/pee.scm
@@ -321,7 +321,7 @@
(alist-update account (list user password comment (current-seconds)) db equal?)
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.~%" account)
(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.~%" account)
(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.~%" e)
(exit 1))))
(define (do-init db-name content)