From d722b2045d028e80786109947ceef1aaffa569eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Fri, 6 Aug 2021 22:42:23 +0200 Subject: Network: switch to safer withFdSocket call --- erebos.cabal | 2 +- src/Network.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/erebos.cabal b/erebos.cabal index 4114601..73c395a 100644 --- a/erebos.cabal +++ b/erebos.cabal @@ -71,7 +71,7 @@ executable erebos memory >=0.14 && <0.17, mime >= 0.4 && < 0.5, mtl >=2.2 && <2.3, - network >= 3.0 && <3.2, + network >= 3.1 && <3.2, stm >=2.5 && <2.6, tagged >= 0.8 && <0.9, text >= 1.2 && <1.3, 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