Disabled non-compiling IPv6 version of getHostByAddr.

1 files changed, 2 insertions, 0 deletions

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"