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

bbb

Browse source
This commit is contained in:
blankie 2022-10-08 16:15:03 +07:00
parent 8b8a9c5e09
commit 01363b366a
Signed by: blankie
GPG key ID: CC15FC822C7F61F5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/page-file.rkt
View file

@ -88,7 +88,7 @@
(log-outgoing dest-url) (log-outgoing dest-url)
(define dest-res (easy:get dest-url #:timeouts timeouts)) (define dest-res (easy:get dest-url #:timeouts timeouts))
(easy:response-json dest-res)] (easy:response-json dest-res)]
[license (license-auto wikiname)])) [license (license-auto wikiname)])
(if (not (jp "/exists" media-detail #f)) (if (not (jp "/exists" media-detail #f))
(next-dispatcher) (next-dispatcher)
@ -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