From 70ef01cc1277d288e1719ddfff4efa4d54ea9b4d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 7 Nov 2012 14:51:51 -0400 Subject: fix warning seen on OSX, apparently something there defines a close --- Utility/WebApp.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Utility') diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index e11b3f411..cbc4ce906 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -86,10 +86,9 @@ localSocket = do go' :: Int -> AddrInfo -> IO Socket go' 0 _ = error "unable to bind to local socket" 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 open addr = socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr) - close = sClose use addr sock = do setSocketOption sock ReuseAddr 1 bindSocket sock (addrAddress addr) -- cgit v1.2.3