From f2de0cc11f3b7da7d55a76bdbbf3fe5db34be356 Mon Sep 17 00:00:00 2001 From: blankie Date: Sat, 8 Oct 2022 23:14:57 +0700 Subject: [PATCH] url --- src/page-file.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/page-file.rkt b/src/page-file.rkt index 7db138d..472652e 100644 --- a/src/page-file.rkt +++ b/src/page-file.rkt @@ -29,8 +29,8 @@ ; '#hasheq((batchcomplete . #t) (continue . #hasheq((cmcontinue . "page|4150504c45|41473") (continue . "-||"))) (query . #hasheq((categorymembers . (#hasheq((ns . 0) (pageid . 25049) (title . "Item (entity)")) #hasheq((ns . 0) (pageid . 128911) (title . "3D")) #hasheq((ns . 0) (pageid . 124018) (title . "A Very Fine Item")) #hasheq((ns . 0) (pageid . 142208) (title . "Amethyst Shard")) #hasheq((ns . 0) (pageid . 121612) (title . "Ankle Monitor"))))))))) (define (url-content-type url) - (log-outgoing image-url) - (define dest-res (easy:head image-url #:timeouts timeouts)) + (log-outgoing url) + (define dest-res (easy:head url #:timeouts timeouts)) (easy:response-headers-ref dest-res 'Content-Type)) (define (get-media-html url content-type)