chore: add comments on the Observation module
This commit is contained in:
committed by
Steve Chavez
parent
2766b844a9
commit
80a4edbd2d
@@ -75,6 +75,7 @@ middleware logLevel getAuthRole = case logLevel of
|
||||
, Wai.destination = Wai.Handle stdout
|
||||
}
|
||||
|
||||
-- All observations are logged except some that depend on the log-level
|
||||
observationLogger :: LoggerState -> LogLevel -> ObservationHandler
|
||||
observationLogger loggerState logLevel obs = case obs of
|
||||
o@(PoolAcqTimeoutObs _) -> do
|
||||
|
||||
Reference in New Issue
Block a user