webapp: Work around bug in Warp's slowloris attack prevention code, that caused regular browsers to stall when they reuse a connection after leaving it idle for 30 seconds. (See https://github.com/yesodweb/wai/issues/146)

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