From b80dbeb015bf6856144abba873a133a7951dc665 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 16 Feb 2018 12:21:29 +0900
Subject: [PATCH] rescuing Windows.

---
 Network/Socket/Types.hsc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Network/Socket/Types.hsc b/Network/Socket/Types.hsc
index 0d9843d7..4b0e800b 100644
--- a/Network/Socket/Types.hsc
+++ b/Network/Socket/Types.hsc
@@ -919,7 +919,11 @@ withSockAddr addr f = do
 -- space.  This constant holds the maximum allowable path length.
 --
 unixPathMax :: Int
+#if defined(DOMAIN_SOCKET_SUPPORT)
 unixPathMax = #const sizeof(((struct sockaddr_un *)NULL)->sun_path)
+#else
+unixPathMax = 0
+#endif
 
 -- We can't write an instance of 'Storable' for 'SockAddr' because
 -- @sockaddr@ is a sum type of variable size but