Skip to content

GitLab

Commit 4476095c authored by dave griffiths's avatar dave griffiths
Browse files

added debugging

parent 33e722e9
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
web/server.scm
View file @ 4476095c
...@@ -109,10 +109,10 @@ ...@@ -109,10 +109,10 @@
)) ))
(define (start request) (define (start request)
(msg "request")
(let ((values (url-query (request-uri request)))) (let ((values (url-query (request-uri request))))
(if (not (null? values)) ; do we have some parameters? (if (not (null? values)) ; do we have some parameters?
(let ((name (assq 'fn values))) (let ((name (assq 'fn values)))
(msg values)
(if name ; is this a well formed request? (if name ; is this a well formed request?
(request-dispatch (request-dispatch
registered-requests registered-requests
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment