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

add withSocketsDo to hopefully appease the windows crash report gods

Browse source
This commit is contained in:
Joey Hess 2013-12-06 22:18:58 -04:00
parent 2fc0330c3b
commit 00f3781f47
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/WebApp.hs
View file

@ -39,6 +39,7 @@ import Control.Concurrent
#ifdef __ANDROID__ #ifdef __ANDROID__
import Data.Endian import Data.Endian
#endif #endif
import Network.Socket (withSocketsDo)
localhost :: HostName localhost :: HostName
localhost = "localhost" localhost = "localhost"
@ -68,7 +69,7 @@ browserProc url = proc "xdg-open" [url]
- such as start a web browser to view the webapp. - such as start a web browser to view the webapp.
-} -}
runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO () runWebApp :: Maybe HostName -> Wai.Application -> (SockAddr -> IO ()) -> IO ()
runWebApp h app observer = do runWebApp h app observer = withSocketsDo $ do
sock <- getSocket h sock <- getSocket h
void $ forkIO $ runSettingsSocket webAppSettings sock app void $ forkIO $ runSettingsSocket webAppSettings sock app
sockaddr <- fixSockAddr <$> getSocketName sock sockaddr <- fixSockAddr <$> getSocketName sock