summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-01-26 12:56:49 +0000
committerArun Isaac2023-01-26 19:40:55 +0000
commit2fc4700fbfd659197773a7e6d971563eb6ccfc3a (patch)
treef6b6e10136fb44c45c9616a133007b6ad72873ba
parentbaed1d3f1bde48aa7ecafed22c6ad4c538ebf5d8 (diff)
downloadtissue-2fc4700fbfd659197773a7e6d971563eb6ccfc3a.tar.gz
tissue-2fc4700fbfd659197773a7e6d971563eb6ccfc3a.tar.lz
tissue-2fc4700fbfd659197773a7e6d971563eb6ccfc3a.zip
web: Log complete request URI, not just the path.
* tissue/web/server.scm (log-request): Log complete request URI, not just the path.
-rw-r--r--tissue/web/server.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 2e59a77..e7b2019 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -53,9 +53,10 @@
(define (log-request request)
"Log @var{request} to standard output."
- (format #t "~a ~a\n"
- (request-method request)
- (uri-path (request-uri request))))
+ (display (request-method request))
+ (display " ")
+ (display (uri->string (request-uri request)))
+ (newline))
(define %mime-types
'(("gif" image/gif)