From 3a212112e20cd6b084a182586bca0a74fb592375 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Tue, 11 Oct 2016 14:05:25 +0700 Subject: [PATCH] Quotesource client: increased heartbeat timeout --- src/ATrade/QuoteSource/Client.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ()