1 files changed, 9 insertions, 5 deletions

diff --git a/Presence/GetHostByAddr.hs b/Presence/GetHostByAddr.hs
index 25ebd7c2..45bca5e9 100644
--- a/Presence/GetHostByAddr.hs
+++ b/Presence/GetHostByAddr.hs
@@ -6,6 +6,7 @@ import Foreign.Ptr
 import Foreign.C.Types
 import Foreign.Storable (Storable(..))
 import Foreign.Marshal.Utils (with)
+import Foreign.Marshal.Alloc
 import Control.Concurrent
 import System.IO.Unsafe
 import System.IO.Error (ioeSetErrorString, mkIOError)
@@ -55,14 +56,17 @@ 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
+getHostByAddr (SockAddrInet6 port flow (a,b,c,d) scope) = do
  let family = AF_INET6
- with addr $ \ ptr_addr -> withLock $ do
+ allocaBytes 16 $ \ ptr_addr -> do
+ pokeElemOff ptr_addr 0 a
+ pokeElemOff ptr_addr 1 b
+ pokeElemOff ptr_addr 2 c
+ pokeElemOff ptr_addr 3 d
+ withLock $ do
  throwNoSuchThingIfNull         "getHostByAddr" "no such host entry"
-   $ trySysCall $ c_gethostbyaddr ptr_addr (fromIntegral (sizeOf addr)) (packFamily family)
+   $ trySysCall $ c_gethostbyaddr ptr_addr 16 (packFamily family)
  >>= peek
--}
 
 
 foreign import ccall safe "gethostbyaddr"