|
|
|
|
@ -250,7 +250,6 @@ workThread = do
@@ -250,7 +250,6 @@ workThread = do
|
|
|
|
|
log Info "HistoryProviderServer.WorkThread" "Got response from TXML" |
|
|
|
|
case response of |
|
|
|
|
ResponseHistory hr -> do |
|
|
|
|
log Info "HistoryProviderServer.WorkThread" $ "Bars1: " <> (T.pack . show . length) (hrBars hr) |
|
|
|
|
let bs = L.filter (timestampBetween (rqStartTime request) (rqEndTime request)) $ hrBars hr |
|
|
|
|
log Info "HistoryProviderServer.WorkThread" $ "Bars: " <> (T.pack . show . length) bs |
|
|
|
|
pure $ QHPBarsResponse bs |
|
|
|
|
|
