diff options
Diffstat (limited to 'Utility/WebApp.hs')
-rw-r--r-- | Utility/WebApp.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index c6aae9db5..0623d4a48 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -56,9 +56,14 @@ browserCommand = "xdg-open" runWebApp :: Wai.Application -> (SockAddr -> IO ()) -> IO () runWebApp app observer = do sock <- localSocket - void $ forkIO $ runSettingsSocket defaultSettings sock app + void $ forkIO $ runSettingsSocket webAppSettings sock app observer =<< getSocketName sock +webAppSettings = defaultSettings + -- disable buggy sloworis attack prevention code + { settingsTimeout = 30 * 60 + } + {- Binds to a local socket, selecting any free port. - - Prefers to bind to the ipv4 address rather than the ipv6 address |