Fixed^2 (Re: Fixed! (Re: [5.01] Runtime error in SocketPrim?!))

[Volker Stolz]

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 at 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 * stolz at i2.informatik.rwth-aachen.de * PGP + S/MIME