Browse Source

QuoteSourceServer: remove logging

master
Denis Tereshkin 4 years ago
parent
commit
a5e4a83139
  1. 2
      src/ATrade/QuoteSource/Server.hs

2
src/ATrade/QuoteSource/Server.hs

@ -27,7 +27,6 @@ import Data.Maybe (Maybe (Just, Nothing))
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as E import qualified Data.Text.Encoding as E
import Prelude hiding ((!!)) import Prelude hiding ((!!))
import System.Log.Logger (debugM)
import System.ZMQ4 (Context, Pub (..), Socket, import System.ZMQ4 (Context, Pub (..), Socket,
bind, close, restrict, send, bind, close, restrict, send,
sendMulti, setCurveServer, sendMulti, setCurveServer,
@ -52,7 +51,6 @@ data QuoteSourceServerData = QSSTick Tick | QSSBar (BarTimeframe, Bar) | QSSHear
serverThread :: QuoteSourceServer -> IO () serverThread :: QuoteSourceServer -> IO ()
serverThread state = do serverThread state = do
finally serverThread' cleanup finally serverThread' cleanup
debugM "QuoteSource" "server thread done"
where where
cleanup = do cleanup = do
close $ outSocket state close $ outSocket state

Loading…
Cancel
Save