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

fix warning seen on OSX, apparently something there defines a close

Browse source
This commit is contained in:
Joey Hess 2012-11-07 14:51:51 -04:00
parent 0af051fac5
commit 3af1984ed2
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utility/WebApp.hs
View file

@ -86,10 +86,9 @@ localSocket = do
go' :: Int -> AddrInfo -> IO Socket go' :: Int -> AddrInfo -> IO Socket
go' 0 _ = error "unable to bind to local socket" go' 0 _ = error "unable to bind to local socket"
go' n addr = do go' n addr = do
r <- tryIO $ bracketOnError (open addr) close (use addr) r <- tryIO $ bracketOnError (open addr) sClose (use addr)
either (const $ go' (pred n) addr) return r either (const $ go' (pred n) addr) return r
open addr = socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr) open addr = socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
close = sClose
use addr sock = do use addr sock = do
setSocketOption sock ReuseAddr 1 setSocketOption sock ReuseAddr 1
bindSocket sock (addrAddress addr) bindSocket sock (addrAddress addr)