From 9c7c5bf98cc0f7eb69888042798c53fb14646635 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 11 Aug 1998 17:31:40 +0000
Subject: [PATCH] [project @ 1998-08-11 17:31:40 by sof] iNADDR_ANY: it's a
 HostAddress, so convert it to network             byte
 order.

---
 ghc/lib/misc/SocketPrim.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index 2ed9048..7f5cd6e 100644
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -917,7 +917,9 @@ packSocketType stype = 1 + (index (Stream, Packet) stype)
 
 \begin{code}
 aNY_PORT = 0::Int
-iNADDR_ANY = ``INADDR_ANY''::Word
+iNADDR_ANY :: HostAddress
+iNADDR_ANY = unsafePerformIO (_casm_ `` %r = htonl(INADDR_ANY); '')
+
 sOMAXCONN = ``SOMAXCONN''::Int
 maxListenQueue = sOMAXCONN
 
-- 
1.7.10.4