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

avoid head

Browse source
This commit is contained in:
Joey Hess 2012-08-05 15:08:58 -04:00
parent 0833eb43a6
commit ac71ab7bd7
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/WebApp.hs
View file

@ -67,7 +67,9 @@ runWebApp app observer = do
localSocket :: IO Socket
localSocket = do
addrs <- getAddrInfo (Just hints) (Just localhost) Nothing
go $ Prelude.head addrs
case addrs of
[] -> error "unable to bind to a local socket"
(addr:_) -> go addr
where
hints = defaultHints
{ addrFlags = [AI_ADDRCONFIG]