From a932aa052b29bd13bdfe23922d9ae6e071b1d157 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Thu, 18 Jul 2019 09:34:12 +0700
Subject: [PATCH] Bar aggregator: fix non-exhaustive multiway if

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

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