Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

set tcp hang up time to 60s instead of default 30s

Browse Source
This commit is contained in:
Keagan McClelland
2022-02-17 13:42:17 -07:00
parent ac94aa9f88
commit 5e807f5c91
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Application.hs
View File

@@ -51,6 +51,7 @@ import Network.Wai.Handler.Warp ( Settings
, setHost , setHost
, setOnException , setOnException
, setPort , setPort
, setTimeout
) )
import Network.Wai.Handler.WarpTLS import Network.Wai.Handler.WarpTLS
import Network.Wai.Middleware.AcceptOverride import Network.Wai.Middleware.AcceptOverride
@@ -255,7 +256,8 @@ makeAuthWare _ app req res = next
-- | Warp settings for the given foundation value. -- | Warp settings for the given foundation value.
warpSettings :: AppPort -> RegistryCtx -> Settings warpSettings :: AppPort -> RegistryCtx -> Settings
warpSettings port foundation = warpSettings port foundation =
setPort (fromIntegral port) setTimeout 60
$ setPort (fromIntegral port)
$ setHost (appHost $ appSettings foundation) $ setHost (appHost $ appSettings foundation)
$ setOnException (\_req e -> $ setOnException (\_req e ->
when (defaultShouldDisplayException e) $ messageLoggerSource when (defaultShouldDisplayException e) $ messageLoggerSource