diff options
| author | Arun Isaac | 2022-09-19 01:52:26 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-09-19 02:09:42 +0530 |
| commit | 4450a52275907043a5a05d0f3c7b67fd7bcf1003 (patch) | |
| tree | 4e0c07ec13fa93b4062d8ca19b11c0ac6b5d3a44 /bin | |
| parent | 3085370fd0744611edde6865cd381b3e67ff8972 (diff) | |
| download | tissue-4450a52275907043a5a05d0f3c7b67fd7bcf1003.tar.gz tissue-4450a52275907043a5a05d0f3c7b67fd7bcf1003.tar.lz tissue-4450a52275907043a5a05d0f3c7b67fd7bcf1003.zip | |
bin: Print error message and exit on user-error conditions.
This allows us to report fatal user errors and exit. * bin/tissue (main): Print error message and exit on user-error conditions.
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/tissue | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/bin/tissue b/bin/tissue index 39c15e0..4e59d73 100755 --- a/bin/tissue +++ b/bin/tissue @@ -506,7 +506,12 @@ Pull latest from upstream repositories. => (lambda (git-error) (display (git-error-message git-error) (current-error-port)) (newline (current-error-port)) - (exit #f)))) + (exit #f))) + ((and (user-error-condition? c) + (message-condition? c)) + (display (condition-message c) (current-error-port)) + (newline (current-error-port)) + (exit #f))) (match args ((_ (or "-h" "--help")) (print-usage)) |