From 68033553d2b9e46dcf0cc3bb952b2033ec840695 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Fri, 27 Aug 2021 21:33:06 +0700
Subject: [PATCH] bugfix(real): use bar timestamps to update lastTimestamp

---
 src/ATrade/Driver/Real.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ATrade/Driver/Real.hs b/src/ATrade/Driver/Real.hs
index 6064561..405d840 100644
--- a/src/ATrade/Driver/Real.hs
+++ b/src/ATrade/Driver/Real.hs
@@ -417,6 +417,7 @@ barStrategyDriver downloadDelta instanceParams callback shutdownVar = do
             env <- getEnvironment
             let newTimestamp = case event of
                   NewTick tick -> timestamp tick
+                  NewBar bar   -> barTimestamp bar
                   _            -> env ^. seLastTimestamp
             nowRef <- asks envLastTimestamp
             lift $ writeIORef nowRef newTimestamp