From 1864c06e5f5541b5b716a55ef642f2af11f3f30a Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Fri, 26 Nov 2021 10:53:36 -0500 Subject: [PATCH] Close body port regardless of status --- info.rkt | 2 +- tt.rkt | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) 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) -- 2.20.1