diff --git a/src/page-file.rkt b/src/page-file.rkt index 99dedee..9be0958 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -32,7 +32,7 @@ (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 + `(cond [(eq? content-type #f) ""] [(regexp-match? #rx"^image/" content-type) (img (@ (src ,(u-proxy-url image-url))))] @@ -67,7 +67,7 @@ `(div ,(if (non-empty-string? video-embed-code) (update-tree-wiki (html->xexp (preprocess-html-wiki video-embed-code)) wikiname) - `(html-from-url image-url)) + (html-from-url image-url)) (p ,(if (non-empty-string? video-embed-code) `""