From 472e0e97fee63e6a947d2e3ed6ac4d3f912b6af8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Dec 2013 22:57:54 -0400 Subject: [PATCH] whups --- Utility/WebApp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 274902c3ed..225021b2e7 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -70,7 +70,7 @@ browserProc url = proc "xdg-open" [url] -} runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO () runWebApp h app observer = withSocketsDo $ do - sock <- bindPort (settingsPort webAppSettings) (settingsHost webAppSettings) + sock <- getSocket h void $ forkIO $ runSettingsSocket webAppSettings sock app sockaddr <- fixSockAddr <$> getSocketName sock observer sockaddr