> In local.glasgow-haskell-bugs, I wrote: > >Unluckily, this seems to create a new problem: After binding to a > >specific address, socketPort always returns 0. > > net@atlas [16:47:28]> diff -u SocketPrim.old SocketPrim.hsc > --- SocketPrim.old Thu Jun 7 16:29:47 2001 > +++ SocketPrim.hsc Wed Jun 13 16:46:32 2001 > @@ -233,7 +233,7 @@ > #endif > (#const AF_INET) -> do > addr <- (#peek struct sockaddr_in, sin_addr) p > - port <- (#peek struct sockaddr_in, sin_addr) p > + port <- (#peek struct sockaddr_in, sin_port) p > return (SockAddrInet (PortNum port) addr) > -- size of struct sockaddr by family > #if !defined(cygwin32_TARGET_OS) && !defined(mingw32_TARGET_OS) Committed; thanks. Simon _______________________________________________ Glasgow-haskell-bugs mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
