Ticket #2927: networkIpv6Patch.patch

File networkIpv6Patch.patch, 371 bytes (added by tphyahoo, 5 years ago)

patch for network problem with uncaught exception with ipv6

Line 
1network-2.2.0.1>darcs diff Network.hs
2271,272c271,276
3<  (sock', addr) <- Socket.accept sock
4<  (Just peer, _) <- getNameInfo [] True False addr
5---
6>  (sock', addr@((SockAddrInet port haddr) )) <- Socket.accept sock
7>  (Just peer) <- catchIO ( return . fst =<< getNameInfo [] True False addr )
8>                         (\e -> return . Just =<< inet_ntoa haddr )
9>
10>
11>
12