Display an error message when server sends an empty response - holymoly - A tor enabled gopher client written in CHICKEN scheme
HTML git clone git://vernunftzentrum.de/holymoly.git
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit db9345443c5ab1542db7760a71503d69e160ab0b
DIR parent be5ef663f6d94372f5e021565faa32f92bb40325
HTML Author: Christian Kellermann <ckeen@pestilenz.org>
Date: Fri, 3 Aug 2018 09:47:25 +0200
Display an error message when server sends an empty response
Diffstat:
holymoly.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
---
DIR diff --git a/holymoly.scm b/holymoly.scm
@@ -171,10 +171,12 @@
(display (string-append resource (string #\return #\linefeed)) o)
(let ((response (if until-eof?
(read-u8vector #f i)
- (butlast (read-lines i)))))
+ (read-lines i))))
(close-input-port i)
(close-output-port o)
- response))
+ (if (null? response)
+ '("iGot an empty response from server\tfoo\tserver\t70\r\n")
+ response)))
(e (exn i/o net)
(endwin)
(new-status "Network error: ~a" ((condition-property-accessor 'exn 'message) e))