diff --git a/src/ATrade/BarAggregator.hs b/src/ATrade/BarAggregator.hs index 457305e..bcd2e4c 100644 --- a/src/ATrade/BarAggregator.hs +++ b/src/ATrade/BarAggregator.hs @@ -206,6 +206,7 @@ handleBar bar = runState $ do else do lBars %= M.insert (barSecurity bar) series { bsBars = bar : b : bs } return . Just $ b + | otherwise -> return Nothing _ -> do lBars %= M.insert (barSecurity bar) series { bsBars = [bar] } return Nothing