From 68bbd2e9f42d401e184ecf35106d833a6c4338db Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Fri, 26 Nov 2021 15:25:13 -0500 Subject: [PATCH] Update indentation --- tt.rkt | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/tt.rkt b/tt.rkt index a375c69..f4c1b85 100644 --- a/tt.rkt +++ b/tt.rkt @@ -468,22 +468,22 @@ (log-debug "Last-Modified <= current skipping the rest of ~v" u-str) #t)))) (if (not cached?) - (begin - (log-debug - "Downloading the rest of ~v. ETag: ~a, Last-Modified: ~v" - u-str etag lmod) - (make-parent-directory* cached-object-path) - (make-parent-directory* cached-etag-path) - (make-parent-directory* cached-lmod-path) - (call-with-output-file cached-object-path - (curry copy-port body-input) - #:exists 'replace) - (when etag - (display-to-file etag cached-etag-path #:exists 'replace)) - (when lmod - (display-to-file lmod cached-lmod-path #:exists 'replace)) - 'downloaded-new) - 'skipped-cached)) + (begin + (log-debug + "Downloading the rest of ~v. ETag: ~a, Last-Modified: ~v" + u-str etag lmod) + (make-parent-directory* cached-object-path) + (make-parent-directory* cached-etag-path) + (make-parent-directory* cached-lmod-path) + (call-with-output-file cached-object-path + (curry copy-port body-input) + #:exists 'replace) + (when etag + (display-to-file etag cached-etag-path #:exists 'replace)) + (when lmod + (display-to-file lmod cached-lmod-path #:exists 'replace)) + 'downloaded-new) + 'skipped-cached)) (: uri-download (-> Positive-Float Url -- 2.20.1