From 2fc4700fbfd659197773a7e6d971563eb6ccfc3a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 26 Jan 2023 12:56:49 +0000
Subject: web: Log complete request URI, not just the path.

* tissue/web/server.scm (log-request): Log complete request URI, not
just the path.
---
 tissue/web/server.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'tissue')

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)
-- 
cgit v1.2.3