blankie/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests Projects Releases Packages Wiki Activity

ok

Browse source
This commit is contained in:
blankie 2022-10-08 22:38:44 +07:00
parent 6d2f5904fe
commit 881b95bde3
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/page-file.rkt
View file

@ -31,7 +31,7 @@
(define (html-from-url image-url) (define (html-from-url image-url)
(log-outgoing image-url) (log-outgoing image-url)
(define dest-res (easy:head image-url #:timeouts timeouts)) (define dest-res (easy:head image-url #:timeouts timeouts))
(define content-type (easy:response-headers-ref dest-res "Content-Type")) (define content-type (easy:response-headers-ref dest-res 'Content-Type))
`(cond `(cond
[(eq? content-type #f) ""] [(eq? content-type #f) ""]
[(regexp-match? #rx"^image/" content-type) [(regexp-match? #rx"^image/" content-type)