didn't seem to help

This commit is contained in:
Joey Hess 2013-12-06 22:53:36 -04:00
parent 85936392ec
commit 67df015767

View file

@ -39,9 +39,6 @@ import Control.Concurrent
#ifdef __ANDROID__
import Data.Endian
#endif
#ifdef mingw32_HOST_OS
import Data.Conduit.Network (bindPort)
#endif
import Network.Socket (withSocketsDo)
localhost :: HostName
@ -73,11 +70,7 @@ browserProc url = proc "xdg-open" [url]
-}
runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO ()
runWebApp h app observer = withSocketsDo $ do
#ifndef mingw32_HOST_OS
sock <- getSocket h
#else
sock <- bindPort (settingsPort webAppSettings) (settingsHost webAppSettings)
#endif
void $ forkIO $ runSettingsSocket webAppSettings sock app
sockaddr <- fixSockAddr <$> getSocketName sock
observer sockaddr