From d9b88a501f93ab27b6d0fdf614db95cdcb7637bb Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Wed, 17 Jul 2019 14:43:31 +0700
Subject: [PATCH] More debug

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

diff --git a/src/ATrade/Driver/Real.hs b/src/ATrade/Driver/Real.hs
index 04d0cc4..8877cdc 100644
--- a/src/ATrade/Driver/Real.hs
+++ b/src/ATrade/Driver/Real.hs
@@ -423,6 +423,7 @@ barStrategyDriver mbSourceTimeframe tickFilter strategy stateRef timersRef shutd
             QQ.endDate = utctDay now,
             QQ.period = tf }
           debugM "Strategy" $ "Obtained " ++ show (length historyBars) ++ " bars"
+          debugM "Strategy" $ show (take 20 historyBars)
           return (code t, BarSeries { bsTickerId = code t, bsTimeframe = Timeframe (timeframeSeconds t), bsBars = historyBars })
         _ -> return (code t, BarSeries { bsTickerId = code t, bsTimeframe = Timeframe (timeframeSeconds t), bsBars = [] })