summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)