From d722b2045d028e80786109947ceef1aaffa569eb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 6 Aug 2021 22:42:23 +0200
Subject: Network: switch to safer withFdSocket call

---
 src/Network.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index d64124e..f857ef9 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -250,7 +250,7 @@ startServer opt origHead logd' services = do
             putMVar ssocket sock
             setSocketOption sock ReuseAddr 1
             setSocketOption sock Broadcast 1
-            setCloseOnExecIfNeeded =<< fdSocket sock
+            withFdSocket sock setCloseOnExecIfNeeded
             bind sock (addrAddress addr)
             return sock
 
-- 
cgit v1.2.3