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/Config.hs | |
| parent | 392d665b9beeb767a2adbd75b9147c41a4d2a033 (diff) | |
| download | sproxy2-9cdee8017606580a3c4e8ca7de854cf90e41d9cf.tar.gz | |
Allow configure backend response timeout
Diffstat (limited to 'src/Sproxy/Config.hs')
| -rw-r--r-- | src/Sproxy/Config.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |