From 9df3cd58dcb60a09e8a2576bf26900121f69aa9e Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Thu, 15 Apr 2021 18:52:52 +0700 Subject: [PATCH] Forts morning session: ticks --- src/ATrade/Driver/Real.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Driver/Real.hs b/src/ATrade/Driver/Real.hs index 8a57fd9..db918c1 100644 --- a/src/ATrade/Driver/Real.hs +++ b/src/ATrade/Driver/Real.hs @@ -288,7 +288,7 @@ robotMain dataDownloadDelta defaultState initCallback callback = do | classCode == "SPBFUT" || classCode == "SPBOPT" -> any (inInterval . utctDayTime . timestamp $ tick) fortsIntervals | otherwise -> any (inInterval . utctDayTime . timestamp $ tick) secIntervals - fortsIntervals = [(fromHMS 7 0 0, fromHMS 11 0 0), (fromHMS 11 5 0, fromHMS 15 45 0), (fromHMS 16 0 0, fromHMS 20 50 0)] + fortsIntervals = [(fromHMS 4 0 0, fromHMS 11 0 0), (fromHMS 11 5 0, fromHMS 15 45 0), (fromHMS 16 0 0, fromHMS 20 50 0)] secIntervals = [(fromHMS 6 50 0, fromHMS 15 51 0)] fromHMS h m s = h * 3600 + m * 60 + s