diff options
| author | Arun Isaac | 2023-01-26 12:56:49 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-26 19:40:55 +0000 |
| commit | 2fc4700fbfd659197773a7e6d971563eb6ccfc3a (patch) | |
| tree | f6b6e10136fb44c45c9616a133007b6ad72873ba /tissue | |
| parent | baed1d3f1bde48aa7ecafed22c6ad4c538ebf5d8 (diff) | |
| download | tissue-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.
Diffstat (limited to 'tissue')
| -rw-r--r-- | tissue/web/server.scm | 7 |
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) |