rescuing Windows.

haskell · Feb 16, 2018 · b80dbeb · b80dbeb · vdukhovni · Feb 16, 2018
1 parent d0b11fb
commit b80dbeb
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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