Browse Source

Bugfix: use updated config if configUpdate callback is specified

stable
Denis Tereshkin 5 years ago
parent
commit
4d70f0908e
  1. 2
      src/ATrade/Driver/Real.hs

2
src/ATrade/Driver/Real.hs

@ -229,7 +229,7 @@ robotMain dataDownloadDelta defaultState initCallback callback = do
let strategy = mkBarStrategy instanceParams dataDownloadDelta updatedConfig stratState callback let strategy = mkBarStrategy instanceParams dataDownloadDelta updatedConfig stratState callback
stateRef <- newIORef stratState stateRef <- newIORef stratState
configRef <- newIORef config configRef <- newIORef updatedConfig
timersRef <- newIORef timersState timersRef <- newIORef timersState
shutdownMv <- newEmptyMVar shutdownMv <- newEmptyMVar
installHandler sigINT (gracefulShutdown params stateRef timersRef shutdownMv) installHandler sigINT (gracefulShutdown params stateRef timersRef shutdownMv)

Loading…
Cancel
Save