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

[Simon Marlow]

> 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)

Committed; thanks.

Simon