diff --git a/src/ATrade/QuoteSource/Client.hs b/src/ATrade/QuoteSource/Client.hs index ffd5b8a..3d4a195 100644 --- a/src/ATrade/QuoteSource/Client.hs +++ b/src/ATrade/QuoteSource/Client.hs @@ -58,7 +58,7 @@ startQuoteSourceClient chan tickers ctx endpoint = do notTimeout ts = do now <- getCurrentTime heartbeatTs <- readIORef ts - return $ diffUTCTime now heartbeatTs < 10 + return $ diffUTCTime now heartbeatTs < 30 cleanup compMv = putMVar compMv ()