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

whups

Browse source
This commit is contained in:
Joey Hess 2013-12-06 22:57:54 -04:00
parent 67df015767
commit 472e0e97fe
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/WebApp.hs
View file

@ -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