From 24e3d96f00d04bccd8c754f489d2a30d34559cf2 Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 29 Sep 2017 22:55:14 -0400 Subject: Disabled non-compiling IPv6 version of getHostByAddr. --- Presence/GetHostByAddr.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Presence/GetHostByAddr.hs b/Presence/GetHostByAddr.hs index db1ee09c..25ebd7c2 100644 --- a/Presence/GetHostByAddr.hs +++ b/Presence/GetHostByAddr.hs @@ -55,12 +55,14 @@ getHostByAddr (SockAddrInet port addr ) = do throwNoSuchThingIfNull "getHostByAddr" "no such host entry" $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family) >>= peek +{- getHostByAddr (SockAddrInet6 port flow addr scope) = do let family = AF_INET6 with addr $ \ ptr_addr -> withLock $ do throwNoSuchThingIfNull "getHostByAddr" "no such host entry" $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family) >>= peek +-} foreign import ccall safe "gethostbyaddr" -- cgit v1.2.3