From 7809d7d789f39694402800a4bd20ecd5c9c93ed5 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Tue, 22 Nov 2016 14:05:03 +0700
Subject: [PATCH] BrokerClient: remove receive timeout on socket

---
 src/ATrade/Broker/Client.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/ATrade/Broker/Client.hs b/src/ATrade/Broker/Client.hs
index a2c8545..f41893e 100644
--- a/src/ATrade/Broker/Client.hs
+++ b/src/ATrade/Broker/Client.hs
@@ -46,7 +46,6 @@ brokerClientThread ctx ep cmd resp comp killMv = finally brokerClientThread' cle
     brokerClientThread' = whileM_ (isNothing <$> tryReadMVar killMv) $ do
       sock <- socket ctx Req
       connect sock $ T.unpack ep
-      setReceiveTimeout (restrict 1000) sock
       finally (brokerClientThread'' sock) (close sock)
     brokerClientThread'' sock = whileM_ (isNothing <$> tryReadMVar killMv) $ do
         request <- takeMVar cmd