diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2021-08-06 22:42:23 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2021-08-06 22:42:23 +0200 |
| commit | d722b2045d028e80786109947ceef1aaffa569eb (patch) | |
| tree | ab4ce32f640c3f38ff6ba1f3f2e870afeb711ef1 /src/Network.hs | |
| parent | c1e61496f5c2826d897c96777906c8c9d083906c (diff) | |
Network: switch to safer withFdSocket call
Diffstat (limited to 'src/Network.hs')
| -rw-r--r-- | src/Network.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |