hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Debug info in web server

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-12 16:20:05 +02:00
parent 1365ff08f5
commit 7b12f8282f
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
racket-webview.rkt
View File

@@ -246,6 +246,8 @@
(token-in-cache? (not (or (eq? token #f) (token-in-cache? (not (or (eq? token #f)
(eq? (lru-has? sec-cache token) #f)))) (eq? (lru-has? sec-cache token) #f))))
) )
(dbg-webview "token-in-cache: ~a, token ~a, path ~a"
token-in-cache? token path)
(if (and (eq? token-in-cache? #f) (not cache-empty?)) (if (and (eq? token-in-cache? #f) (not cache-empty?))
(response/output (response/output
#:code 401 #:code 401