From 9cdee8017606580a3c4e8ca7de854cf90e41d9cf Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Thu, 21 Sep 2017 18:09:23 +0300
Subject: Allow configure backend response timeout

---
 src/Sproxy/Config.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Sproxy/Config.hs')

diff --git a/src/Sproxy/Config.hs b/src/Sproxy/Config.hs
index f1d8004..cb32a06 100644
--- a/src/Sproxy/Config.hs
+++ b/src/Sproxy/Config.hs
@@ -65,6 +65,7 @@ data BackendConf = BackendConf
   , beCookieDomain :: Maybe String
   , beCookieMaxAge :: Int64
   , beConnCount :: Int
+  , beTimeout :: Int
   } deriving (Show)
 
 instance FromJSON BackendConf where
@@ -75,7 +76,8 @@ instance FromJSON BackendConf where
     m .:? "cookie_name" .!= "sproxy" <*>
     m .:? "cookie_domain" <*>
     m .:? "cookie_max_age" .!= (7 * 24 * 60 * 60) <*>
-    m .:? "conn_count" .!= 32
+    m .:? "conn_count" .!= 32 <*>
+    m .:? "timeout" .!= 30
   parseJSON _ = empty
 
 data OAuth2Conf = OAuth2Conf
-- 
cgit v1.2.3