using peekCAString instead of peekCString.

haskell · Feb 15, 2018 · 831fac6 · 831fac6
1 parent 8771875
commit 831fac6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/Socket/Types.hsc b/Network/Socket/Types.hsc
@@ -966,7 +966,7 @@ peekSockAddr p = do
   case family :: CSaFamily of
 #if defined(DOMAIN_SOCKET_SUPPORT)
     (#const AF_UNIX) -> do
-        str <- peekCString ((#ptr struct sockaddr_un, sun_path) p)
+        str <- peekCAString ((#ptr struct sockaddr_un, sun_path) p)
         return (SockAddrUnix str)
 #endif
     (#const AF_INET) -> do