chore: add comments on the Observation module

This commit is contained in:
steve-chavez
2024-11-15 16:11:26 -05:00
committed by Steve Chavez
parent 2766b844a9
commit 80a4edbd2d
3 changed files with 10 additions and 1 deletions
+1
View File
@@ -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