Browse Source

Backtest driver: cleanup

stable
Denis Tereshkin 6 years ago
parent
commit
9055091fde
  1. 2
      src/ATrade/Driver/Backtest.hs

2
src/ATrade/Driver/Backtest.hs

@ -277,7 +277,7 @@ backtestMain dataDownloadDelta defaultState initCallback callback = do
} }
handleEvent event@(NewBar bar) = do handleEvent event@(NewBar bar) = do
events <- executePendingOrders bar executePendingOrders bar
firedTimers <- fireTimers (barTimestamp bar) firedTimers <- fireTimers (barTimestamp bar)
mapM_ (\x -> enqueueEvent (TimerFired x)) firedTimers mapM_ (\x -> enqueueEvent (TimerFired x)) firedTimers
handleEvent' event handleEvent' event

Loading…
Cancel
Save