From 9055091fdeb495f596c007260834aed34aed1256 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 13 Apr 2020 12:35:36 +0700
Subject: [PATCH] Backtest driver: cleanup

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

diff --git a/src/ATrade/Driver/Backtest.hs b/src/ATrade/Driver/Backtest.hs
index 0cfb9a4..894ef99 100644
--- a/src/ATrade/Driver/Backtest.hs
+++ b/src/ATrade/Driver/Backtest.hs
@@ -277,7 +277,7 @@ backtestMain dataDownloadDelta defaultState initCallback callback = do
                                 }
 
     handleEvent event@(NewBar bar) = do
-      events <- executePendingOrders bar
+      executePendingOrders bar
       firedTimers <- fireTimers (barTimestamp bar)
       mapM_ (\x -> enqueueEvent (TimerFired x)) firedTimers
       handleEvent' event