From 77a49f1d513c1a60a8f605db991ce20186662004 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Tue, 14 Apr 2020 11:02:34 +0700
Subject: [PATCH] Real: remove debug output

---
 src/ATrade/Driver/Real.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/ATrade/Driver/Real.hs b/src/ATrade/Driver/Real.hs
index bb77742..044c119 100644
--- a/src/ATrade/Driver/Real.hs
+++ b/src/ATrade/Driver/Real.hs
@@ -509,9 +509,6 @@ barStrategyDriver ctx mbSourceTimeframe tickFilter strategy shutdownVar = do
         event <- lift $ readChan eventChan
         if event /= Shutdown
           then do
-            case event of
-              NewTick _ -> return ()
-              _ -> lift $ debugM "Strategy" $ "event: " ++ show event
             env <- getEnvironment
             let newTimestamp = case event of
                   NewTick tick -> timestamp tick