using sockaddrStorageLen for sizeOfSockAddr SockAddrUnix.

haskell · Feb 15, 2018 · c3e2e2e · c3e2e2e
1 parent 831fac6
commit c3e2e2e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/Socket/Types.hsc b/Network/Socket/Types.hsc
@@ -900,7 +900,7 @@ type CSaFamily = (#type sa_family_t)
 -- in that the value of the argument /is/ used.
 sizeOfSockAddr :: SockAddr -> Int
 #if defined(DOMAIN_SOCKET_SUPPORT)
-sizeOfSockAddr SockAddrUnix{}  = #const sizeof(struct sockaddr_un)
+sizeOfSockAddr SockAddrUnix{}  = sockaddrStorageLen
 #else
 sizeOfSockAddr SockAddrUnix{}  = error "sizeOfSockAddr: not supported"
 #endif