> A related problem... connections are refused when using accept if the > hostname doesn't resolve. Maybe something like this would > help, unless there > is a better way? > > accept sock = do > ~(sock', (SockAddrInet port haddr)) <- Socket.accept sock > (HostEntry peer _ _ _) <- ((getHostByAddr AF_INET haddr) > `Control.Exception.catch` (\_ -> > return (HostEntry ((showHex ((haddr `shiftR` 24) .&. 0xff) > . showChar '.' > . showHex ((haddr `shiftR` 16) .&. 0xff) > . showChar '.' . showHex ((haddr `shiftR` 8) .&. 0xff) > . showChar '.' > . showHex (haddr .&. 0xff)) "") [] AF_INET []))) > handle <- socketToHandle sock' ReadWriteMode > return (handle, peer, port)
Yes, except that inet_ntoa is the right way to get the string representation of an IP address. I'll make this change. Cheers, Simon _______________________________________________ Glasgow-haskell-users mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/glasgow-haskell-users