File tree 1 file changed +9
-5
lines changed
1 file changed +9
-5
lines changed Original file line number Diff line number Diff line change @@ -61,11 +61,15 @@ middleware logLevel = case logLevel of
61
61
LogError -> requestLogger (>= status500)
62
62
LogCrit -> requestLogger (const False )
63
63
where
64
- requestLogger filterStatus = unsafePerformIO $ Wai. mkRequestLogger Wai. defaultRequestLoggerSettings
65
- { Wai. outputFormat = Wai. ApacheWithSettings $
66
- Wai. defaultApacheSettings
67
- & Wai. setApacheRequestFilter (\ _ res -> filterStatus $ Wai. responseStatus res)
68
- & Wai. setApacheUserGetter Auth. getRole
64
+ requestLogger filterStatus = unsafePerformIO $
65
+ Wai. mkRequestLogger Wai. defaultRequestLoggerSettings
66
+ { Wai. outputFormat =
67
+ Wai. ApacheWithSettings $
68
+ Wai. defaultApacheSettings &
69
+ Wai. setApacheRequestFilter (\ _ res -> filterStatus $ Wai. responseStatus res) &
70
+ Wai. setApacheUserGetter Auth. getRole
71
+ , Wai. autoFlush = True
72
+ , Wai. destination = Wai. Handle stdout
69
73
}
70
74
71
75
observationLogger :: LoggerState -> ObservationHandler
You can’t perform that action at this time.
0 commit comments