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

historyprovider: remove extra log

master
Denis Tereshkin 2 years ago
parent
70bd908d9b
commit
631066fb00
1 changed files with 0 additions and 1 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/HistoryProviderServer.hs

1
src/HistoryProviderServer.hs
Unescape View File

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

Write Preview
Loading…
Cancel
Save