mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

didn't seem to help

Browse source
This commit is contained in:
Joey Hess 2013-12-06 22:53:36 -04:00
parent 85936392ec
commit 67df015767
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Utility/WebApp.hs
View file

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