commit 90c7b93461dab91cc9dab8bca4b8622c8fb4c6b5 parent 5b991f42f24acb5f531cb2c079490ae04a40f03d Author: Daniel Barlow <dan@telent.net> Date: Sun, 20 Jul 2025 21:12:28 +0100 move function to module Diffstat:
| M | main.fnl | | | 13 | +------------ |
| M | server.fnl | | | 12 | +++++++++++- |
2 files changed, 12 insertions(+), 13 deletions(-)
diff --git a/main.fnl b/main.fnl @@ -192,24 +192,13 @@ (stream:write_body_from_string (dispatch route)))) -(fn log-request [req-headers stream] - (assert (io.stdout:write - (string.format "[%s] \"%s %s HTTP/%g\" \"%s\" \"%s\"\n" - (os.date "%d/%b/%Y:%H:%M:%S %z") - (or (req-headers:get ":method") "") - (or (req-headers:get ":path") "") - stream.connection.version - (or (req-headers:get :referer) "-") - (or (req-headers:get :user-agent) - "-"))))) - (fn http-handler [_ stream] (let [req-headers (assert (stream:get_headers)) path (req-headers:get ":path") method (req-headers:get ":method") res-headers (server.default-headers) route (route-request method path)] - (log-request req-headers stream) + (server.log-request req-headers stream) (if route (response-for-route res-headers method stream route) (do diff --git a/server.fnl b/server.fnl @@ -34,4 +34,14 @@ (print :listening-on address port) (values server address port))) -{ : new : default-headers } +(fn log-request [req-headers stream] + (assert (io.stdout:write + (string.format "[%s] \"%s %s HTTP/%g\" \"%s\" \"%s\"\n" + (os.date "%d/%b/%Y:%H:%M:%S %z") + (or (req-headers:get ":method") "") + (or (req-headers:get ":path") "") + stream.connection.version + (or (req-headers:get :referer) "-") + (or (req-headers:get :user-agent) + "-"))))) +{ : new : default-headers : log-request }