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)
--
Abstrakte Syntaxträume.
Volker Stolz * [EMAIL PROTECTED] * PGP + S/MIME
_______________________________________________
Glasgow-haskell-bugs mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs