diff --git a/src/Simplex/Messaging/Agent/Store/SQLite/DB.hs b/src/Simplex/Messaging/Agent/Store/SQLite/DB.hs index bfba973c1..2ae4eb731 100644 --- a/src/Simplex/Messaging/Agent/Store/SQLite/DB.hs +++ b/src/Simplex/Messaging/Agent/Store/SQLite/DB.hs @@ -48,7 +48,7 @@ timeIt slow sql a = do r <- a t' <- getCurrentTime let diff = diffToMilliseconds $ diffUTCTime t' t - atomically $ when (diff > 50) $ TM.alter (updateQueryStats diff) sql slow + atomically $ when (diff > 5) $ TM.alter (updateQueryStats diff) sql slow pure r where updateQueryStats :: Int64 -> Maybe SlowQueryStats -> Maybe SlowQueryStats