asakul
/
robocom-zero
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

More debug

stable
Denis Tereshkin 6 years ago
parent
3e12d803e4
commit
d9b88a501f
1 changed files with 1 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 1
      src/ATrade/Driver/Real.hs

1
src/ATrade/Driver/Real.hs
Unescape View File

@ -423,6 +423,7 @@ barStrategyDriver mbSourceTimeframe tickFilter strategy stateRef timersRef shutd
QQ.endDate = utctDay now, QQ.endDate = utctDay now,
QQ.period = tf } QQ.period = tf }
debugM "Strategy" $ "Obtained " ++ show (length historyBars) ++ " bars" 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 = historyBars })
_ -> return (code t, BarSeries { bsTickerId = code t, bsTimeframe = Timeframe (timeframeSeconds t), bsBars = [] }) _ -> return (code t, BarSeries { bsTickerId = code t, bsTimeframe = Timeframe (timeframeSeconds t), bsBars = [] })

Write Preview
Loading…
Cancel
Save