diff --git a/src/page-file.rkt b/src/page-file.rkt index 2a82def..953d04f 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -32,15 +32,15 @@ (log-outgoing image-url) (define dest-res (easy:head image-url #:timeouts timeouts)) (define content-type (easy:response-headers-ref dest-res 'Content-Type)) - `(cond - [(eq? content-type #f) ""] + (cond + [(eq? content-type #f) `""] [(regexp-match? #rx"^image/" content-type) - '(img (@ (src ,(u-proxy-url image-url))))] + `(img (@ (src ,(u-proxy-url image-url))))] [(regexp-match? #rx"^audio/" content-type) - '(audio (@ (src ,(u-proxy-url image-url)) (controls)))] + `(audio (@ (src ,(u-proxy-url image-url)) (controls)))] [(regexp-match? #rx"^video/" content-type) - '(video (@ (src ,(u-proxy-url image-url)) (controls)))] - [else ""])) + `(video (@ (src ,(u-proxy-url image-url)) (controls)))] + [else `""])) (define (generate-results-page #:source-url source-url