This commit is contained in:
blankie 2022-10-08 16:12:30 +07:00
parent fe87ff26c5
commit 8b8a9c5e09
Signed by: blankie
GPG key ID: CC15FC822C7F61F5

View file

@ -93,7 +93,7 @@
(if (not (jp "/exists" media-detail #f)) (if (not (jp "/exists" media-detail #f))
(next-dispatcher) (next-dispatcher)
(response-handler (response-handler
(define title (jp "/fileTitle" media-detail))) (define title (jp "/fileTitle" media-detail))
(define body (generate-results-page (define body (generate-results-page
#:source-url source-url #:source-url source-url
#:wikiname wikiname #:wikiname wikiname
@ -108,7 +108,7 @@
(response/output (response/output
#:code 200 #:code 200
(λ (out) (λ (out)
(write-html body out))))) (write-html body out))))))
;(module+ test ;(module+ test
; (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor") ; (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
; (generate-results-page ; (generate-results-page