diff options
Diffstat (limited to 'Presence')
-rw-r--r-- | Presence/GetHostByAddr.hs | 2 |
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 | |||
55 | throwNoSuchThingIfNull "getHostByAddr" "no such host entry" | 55 | throwNoSuchThingIfNull "getHostByAddr" "no such host entry" |
56 | $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family) | 56 | $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family) |
57 | >>= peek | 57 | >>= peek |
58 | {- | ||
58 | getHostByAddr (SockAddrInet6 port flow addr scope) = do | 59 | getHostByAddr (SockAddrInet6 port flow addr scope) = do |
59 | let family = AF_INET6 | 60 | let family = AF_INET6 |
60 | with addr $ \ ptr_addr -> withLock $ do | 61 | with addr $ \ ptr_addr -> withLock $ do |
61 | throwNoSuchThingIfNull "getHostByAddr" "no such host entry" | 62 | throwNoSuchThingIfNull "getHostByAddr" "no such host entry" |
62 | $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family) | 63 | $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family) |
63 | >>= peek | 64 | >>= peek |
65 | -} | ||
64 | 66 | ||
65 | 67 | ||
66 | foreign import ccall safe "gethostbyaddr" | 68 | foreign import ccall safe "gethostbyaddr" |