Browse Source

Real: remove debug output

stable
Denis Tereshkin 6 years ago
parent
commit
77a49f1d51
  1. 3
      src/ATrade/Driver/Real.hs

3
src/ATrade/Driver/Real.hs

@ -509,9 +509,6 @@ barStrategyDriver ctx mbSourceTimeframe tickFilter strategy shutdownVar = do
event <- lift $ readChan eventChan event <- lift $ readChan eventChan
if event /= Shutdown if event /= Shutdown
then do then do
case event of
NewTick _ -> return ()
_ -> lift $ debugM "Strategy" $ "event: " ++ show event
env <- getEnvironment env <- getEnvironment
let newTimestamp = case event of let newTimestamp = case event of
NewTick tick -> timestamp tick NewTick tick -> timestamp tick

Loading…
Cancel
Save