diff --git a/src/HistoryProviderServer.hs b/src/HistoryProviderServer.hs index 0f5db12..f35209b 100644 --- a/src/HistoryProviderServer.hs +++ b/src/HistoryProviderServer.hs @@ -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