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
Show stats 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

2
git-annex.cabal
View file

@ -168,7 +168,7 @@ Executable git-annex
yesod, yesod-default, yesod-static, yesod-form, yesod-core,
case-insensitive, http-types, transformers, wai, wai-logger, warp,
blaze-builder, crypto-api, hamlet, clientsession,
template-haskell, data-default, aeson
template-haskell, data-default, aeson, network-conduit
CPP-Options: -DWITH_WEBAPP
if flag(Pairing)