sendBufTo :: Socket -> Ptr Word8 -> Int -> SockAddr -> IO Int
sendBufTo sock ptr len sa = do str <- peekArray len ptr
                               sendTo sock (map (chr . fromIntegral) str) sa

#endif

-- | Connect to an UDP-port.
sendBufTo :: Socket -> Ptr Word8 -> Int -> SockAddr -> IO Int
sendBufTo sock ptr len sa = do str <- peekArray len ptr
                               sendTo sock (map (chr . fromIntegral) str) sa

#endif

-- | Connect to an UDP-port.
sendBufTo sock ptr len sa = do str <- peekArray len ptr
                               sendTo sock (map (chr . fromIntegral) str) sa

#endif

-- | Connect to an UDP-port.