From 4b41392f9a5b7ab0a38fc7a3717509030c3a4efa Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 5 Aug 1998 22:33:34 +0000
Subject: [PATCH] [project @ 1998-08-05 22:33:34 by sof] cygwin32 mods

---
 ghc/lib/misc/SocketPrim.lhs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index 1718c8569939..2ed9048e2883 100644
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -176,8 +176,10 @@ data SockAddr		-- C Names
 	PortNumber	-- sin_port  (network byte order)
 	HostAddress	-- sin_addr  (ditto)
 #else
-  = SockAddrUnix        -- struct sockaddr_un
-        String          -- sun_path
+  = SockAddrInet	-- struct sockaddr_in
+	PortNumber	-- sin_port  (network byte order)
+	HostAddress	-- sin_addr  (ditto)
+
 #endif
     deriving Eq
 
@@ -617,7 +619,7 @@ unpackFamily family = (range (AF_UNSPEC, AF_IPX))!!family
  
 data Family = 
 	  AF_UNSPEC	-- unspecified
-	--NOT SUPPORTED: AF_UNIX	-- local to host (pipes, portals)
+	| AF_UNIX	-- local to host (pipes, portals)
 	| AF_INET	-- internetwork: UDP, TCP, etc
 	| AF_IMPLINK	-- arpanet imp addresses
 	| AF_PUP	-- pup protocols: e.g. BSP
-- 
GitLab