refactor: make stdout explicit on Logger

Otherwise it's hard to know we're logging to stdout.
2024-04-14 20:10:01 -05:00
parent 973201a8d3
commit c57ec52229
1 changed files with 9 additions and 5 deletions
@@ -61,11 +61,15 @@ middleware logLevel = case logLevel of
  LogError -> requestLogger (>= status500)
  LogCrit  -> requestLogger (const False)
  where
-    requestLogger filterStatus = unsafePerformIO $ Wai.mkRequestLogger Wai.defaultRequestLoggerSettings
-      { Wai.outputFormat = Wai.ApacheWithSettings $
-          Wai.defaultApacheSettings
-            & Wai.setApacheRequestFilter (\_ res -> filterStatus $ Wai.responseStatus res)
-            & Wai.setApacheUserGetter Auth.getRole
+    requestLogger filterStatus = unsafePerformIO $
+      Wai.mkRequestLogger Wai.defaultRequestLoggerSettings
+      { Wai.outputFormat =
+         Wai.ApacheWithSettings $
+           Wai.defaultApacheSettings &
+           Wai.setApacheRequestFilter (\_ res -> filterStatus $ Wai.responseStatus res) &
+           Wai.setApacheUserGetter Auth.getRole
+      , Wai.autoFlush = True
+      , Wai.destination = Wai.Handle stdout
      }

 observationLogger :: LoggerState -> ObservationHandler