On 12/13/06, Thorkil Naur
I am not an expert on sockets, but I have both a Linux installation and a PPC Mac OS X 10.4 with both ghc-6.4.1 and ghc-6.6. So if you allow me some additional details (such as complete program texts), perhaps I can perform some useful experiments under your conductance.
I can reproduce it with the following:
module Main where
import Control.Exception import Network.Socket import System.IO
allocSocket :: IO Socket allocSocket = do { s <- socket AF_INET Datagram 0 ; handle (\e -> sClose s >> throwIO e) $ do { connect s (SockAddrInet 6802 0x7f000001) ; return s } }
main :: IO () main = withSocketsDo $ do { s <- allocSocket ; getChar ; sClose s }
If you run the program on OSX, you can check the bound address while it's waiting for a keystroke. Type "netstat -an -f inet | grep 6802" to see. I get: udp4 0 0 127.0.0.1.61704 127.0.0.1.6802 which is correct. When I run this program on Linux/i386, I get: udp 0 0 (anonymized):33412 1.0.0.127:6802 ESTABLISHED (I removed my IP address.) The second bound address, however, is wrong: the octets are in the wrong order. Notice, though, that the port number is correct! Thanks for looking into this! -- Rich AIM : rnezzy ICQ : 174908475