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