From ac054c370366b4bbb69c1e7c5717e46465086d29 Mon Sep 17 00:00:00 2001 From: Michal Antkiewicz Date: Fri, 23 Oct 2026 20:21:57 -0400 Subject: [PATCH] Log requests at log level INFO gitit sets up the Happstack.Server.AccessLog.Combined logger with the log file and level, but since the migration to happstack 6 it passed logAccess = Nothing in the server configuration, so requests were never logged. Use happstack's default access logger (combined log format) when the log level is INFO or DEBUG. Co-Authored-By: Claude Opus 5.5 --- gitit.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gitit.hs b/gitit.hs index 47b8d45d6..8ffc3b409 100644 --- a/gitit.hs +++ b/gitit.hs @@ -90,8 +90,10 @@ main = do -- initialize state initializeGititState conf + -- Requests are logged (in combined log format, to serverLogger) at level INFO and below. let serverConf = nullConf { validator = Nothing, port = portNumber conf, - timeout = 20, logAccess = Nothing } + timeout = 20, + logAccess = if level <= INFO then logAccess nullConf else Nothing } -- open the requested interface sock <- socket AF_INET Stream defaultProtocol