From: Siraaj Khandkar Date: Fri, 26 Nov 2021 15:53:36 +0000 (-0500) Subject: Close body port regardless of status X-Git-Tag: 0.26.0~5 X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=1864c06e5f5541b5b716a55ef642f2af11f3f30a;p=tt.git Close body port regardless of status --- diff --git a/info.rkt b/info.rkt index be8a842..c4efb57 100644 --- a/info.rkt +++ b/info.rkt @@ -6,7 +6,7 @@ (define pkg-desc "twtxt client") (define version - "0.22.0") + "0.22.1") (define pkg-authors '("Siraaj Khandkar ")) (define deps diff --git a/tt.rkt b/tt.rkt index abb8b4a..f69df52 100644 --- a/tt.rkt +++ b/tt.rkt @@ -483,10 +483,10 @@ (when etag (display-to-file etag cached-etag-path #:exists 'replace)) (when lmod - (display-to-file lmod cached-lmod-path #:exists 'replace)))) - (close-input-port body-input))] + (display-to-file lmod cached-lmod-path #:exists 'replace)))))] [_ - (log-error "HTTP error URL:~a status:~a" u-str status)])])) + (log-error "HTTP error URL:~a status:~a" u-str status)]) + (close-input-port body-input)])) (: timeline-print (-> Out-Format (Listof Msg) Void)) (define (timeline-print out-format timeline)