Debug info in web server
This commit is contained in:
@@ -246,6 +246,8 @@
|
||||
(token-in-cache? (not (or (eq? 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?))
|
||||
(response/output
|
||||
#:code 401
|
||||
|
||||
Reference in New Issue
Block a user