Merge branch 'master' of https://github.com/asakul/libatrade

src/ATrade/Broker/Client.hs

@@ -55,6 +55,7 @@ brokerClientThread ctx ep cmd resp comp killMv secParams = finally brokerClientT
               throwIO e
             else do
               putMVar resp (ResponseError "Response error")) $ withSocket ctx Req (\sock -> do
+        setLinger (restrict 0) sock
         debugM "Broker.Client" $ "Connecting to: " ++ show (T.unpack ep)
         case cspCertificate secParams of
           Just clientCert -> zapApplyCertificate clientCert sock

src/ATrade/Broker/Server.hs

@@ -58,6 +58,7 @@ data BrokerServerHandle = BrokerServerHandle ThreadId ThreadId (MVar ()) (MVar (
 startBrokerServer :: [BrokerInterface] -> Context -> T.Text -> T.Text -> ServerSecurityParams -> IO BrokerServerHandle
 startBrokerServer brokers c ep tradeSinkEp params = do
   sock <- socket c Router
+  setLinger (restrict 0) sock
   case sspDomain params of
     Just domain -> setZapDomain domain sock
     Nothing -> return ()

src/ATrade/QuoteSource/Client.hs

@@ -51,6 +51,7 @@ startQuoteSourceClient chan tickers ctx endpoint = do
   return QuoteSourceClientHandle { tid = tid, completionMvar = compMv, killMVar = killMv }
   where
     clientThread lastHeartbeat killMv = whileM_ (isNothing <$> tryReadMVar killMv) $ withSocket ctx Sub (\sock -> do
+      setLinger (restrict 0) sock
       connect sock $ T.unpack endpoint
       debugM "QuoteSource.Client" $ "Tickers: " ++ show tickers
       mapM_ (subscribe sock . encodeUtf8) tickers

src/ATrade/QuoteSource/Server.hs

@@ -82,6 +82,7 @@ serverThread state = do
 startQuoteSourceServer :: BoundedChan QuoteSourceServerData -> Context -> T.Text -> IO QuoteSourceServer
 startQuoteSourceServer chan c ep = do
   sock <- socket c Pub
+  setLinger (restrict 0) sock
   bind sock $ T.unpack ep
   tid <- myThreadId
   hbTid <- forkIO $ forever $ do