summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--erebos.cabal2
-rw-r--r--src/Network.hs2
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