diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2017-09-21 18:09:23 +0300 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2017-09-21 18:09:23 +0300 |
commit | 9cdee8017606580a3c4e8ca7de854cf90e41d9cf (patch) | |
tree | f903d0d69ab4df18ac8187d9b39e1efbb2921db1 /src/Sproxy/Server.hs | |
parent | 392d665b9beeb767a2adbd75b9147c41a4d2a033 (diff) | |
download | sproxy2-9cdee8017606580a3c4e8ca7de854cf90e41d9cf.tar.gz |
Allow configure backend response timeout
Diffstat (limited to 'src/Sproxy/Server.hs')
-rw-r--r-- | src/Sproxy/Server.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Sproxy/Server.hs b/src/Sproxy/Server.hs index 75a50a4..2477364 100644 --- a/src/Sproxy/Server.hs +++ b/src/Sproxy/Server.hs @@ -13,7 +13,7 @@ import Data.Word (Word16) import Data.Yaml.Include (decodeFileEither) import Network.HTTP.Client (Manager, ManagerSettings(..), defaultManagerSettings, newManager, - socketConnection) + responseTimeoutMicro, socketConnection) import Network.HTTP.Client.Internal (Connection) import Network.Socket (Family(AF_INET, AF_UNIX), SockAddr(SockAddrInet, SockAddrUnix), @@ -152,6 +152,7 @@ newBackendManager be = do defaultManagerSettings { managerRawConnection = return $ \_ _ _ -> openConn , managerConnCount = beConnCount be + , managerResponseTimeout = responseTimeoutMicro (1000000 * beTimeout be) } newServer :: ConfigFile -> IO (Settings -> Socket -> Application -> IO ()) |