From 8be20b57dd5d32015efd791e31405bebc1e9a15e Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Sun, 28 Jul 2019 16:08:38 +0700 Subject: [PATCH] QuoteSource: do not use ticks time --- src/ATrade/Driver/Real/QuoteSourceThread.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/ATrade/Driver/Real/QuoteSourceThread.hs b/src/ATrade/Driver/Real/QuoteSourceThread.hs index 769ee91..c402982 100644 --- a/src/ATrade/Driver/Real/QuoteSourceThread.hs +++ b/src/ATrade/Driver/Real/QuoteSourceThread.hs @@ -43,11 +43,7 @@ startQuoteSourceThread ctx qsEp strategy eventChan agg tickFilter maybeSourceTim case handleTick tick aggValue of (Just bar, !newAggValue) -> writeIORef agg newAggValue >> writeChan eventChan (NewBar bar) (Nothing, !newAggValue) -> writeIORef agg newAggValue - Just _ -> do - aggValue <- readIORef agg - case updateTime tick aggValue of - (Just bar, !newAggValue) -> writeIORef agg newAggValue >> writeChan eventChan (NewBar bar) - (Nothing, !newAggValue) -> writeIORef agg newAggValue + Just _ -> return () QDBar (_, bar) -> do aggValue <- readIORef agg when (isJust maybeSourceTimeframe) $ do