From 3af1984ed2d430d348ff9557a52a860952f1c9b9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 7 Nov 2012 14:51:51 -0400 Subject: [PATCH] fix warning seen on OSX, apparently something there defines a close --- Utility/WebApp.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index e11b3f411f..cbc4ce9063 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)