From daeb7b0cb2f9d7f1cde462083f265e749d4f33de Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sat, 5 Oct 2019 14:45:00 +0700
Subject: [PATCH] BarAggregator: return correct bar

---
 src/ATrade/BarAggregator.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ATrade/BarAggregator.hs b/src/ATrade/BarAggregator.hs
index 7389745..12a1329 100644
--- a/src/ATrade/BarAggregator.hs
+++ b/src/ATrade/BarAggregator.hs
@@ -191,7 +191,7 @@ handleBar bar = runState $ do
     Just series -> case bsBars series of
       (b:bs) -> do
         lBars %= M.insert (barSecurity bar) series { bsBars = bar : b : bs }
-        return . Just $ b
+        return . Just $ bar
       _      -> do
         lBars %= M.insert (barSecurity bar) series { bsBars = [bar] }
         return Nothing