diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-06 22:53:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-06 22:53:36 -0400 |
| commit | d36f19e7f422518f16d306be8cdc9561388f49a6 (patch) | |
| tree | 7c777e0d447a7c853c119add35f7f52b9f32f010 /Utility/WebApp.hs | |
| parent | 9aa9aa82b4ec92d5443624f99ab43c805bcc6aa0 (diff) | |
didn't seem to help
Diffstat (limited to 'Utility/WebApp.hs')
| -rw-r--r-- | Utility/WebApp.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 5ee53253f..274902c3e 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -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 |