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

fix

Browse source
This commit is contained in:
Joey Hess 2013-12-06 22:38:01 -04:00
parent b712e2cf57
commit 85936392ec
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/WebApp.hs
View file

@ -76,8 +76,7 @@ runWebApp h app observer = withSocketsDo $ do
#ifndef mingw32_HOST_OS
sock <- getSocket h
#else
let set = defaultSettings
sock <- bindPort (settingsPort set) (settingsHost set)
sock <- bindPort (settingsPort webAppSettings) (settingsHost webAppSettings)
#endif
void $ forkIO $ runSettingsSocket webAppSettings sock app
sockaddr <- fixSockAddr <$> getSocketName sock