diff options
| -rw-r--r-- | erebos.cabal | 2 | ||||
| -rw-r--r-- | 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 |