File tree Expand file tree Collapse file tree 2 files changed +4
-3
lines changed
Expand file tree Collapse file tree 2 files changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -47,7 +47,7 @@ library
4747 , http-conduit >= 2.1.11 && < 2.2
4848 , http-types >= 0.8
4949 , mtl >= 2.1
50- , network >= 2.6
50+ , network == 2.7. *
5151 , resourcet >= 1.1
5252 -- Not used directly but necessary to enforce < 0.2
5353 , streaming-commons >= 0.1 && < 0.2
Original file line number Diff line number Diff line change @@ -224,8 +224,9 @@ catchAny action onE =
224224openLocalhostListenSocket :: IO (Socket , Port )
225225openLocalhostListenSocket = do
226226 sock <- socket AF_INET Stream defaultProtocol
227- addr <- inet_addr " 127.0.0.1"
228- bind sock (SockAddrInet aNY_PORT addr)
227+ addr: _ <- getAddrInfo Nothing ( Just " 127.0.0.1" ) Nothing
228+ bind sock (addrAddress addr)
229229 listen sock 10
230230 port <- fromIntegral <$> socketPort sock
231231 return (sock, port)
232+
You can’t perform that action at this time.
0 commit comments