sockAddr :: String -> Int -> IO SockAddr
sockAddr host port = do ha <- getHostByName host
                        return $ SockAddrInet (toEnum port) (hostAddress ha)
sockAddr :: String -> Int -> IO SockAddr
sockAddr host port = do ha <- getHostByName host
                        return $ SockAddrInet (toEnum port) (hostAddress ha)
sockAddr host port = do ha <- getHostByName host
                        return $ SockAddrInet (toEnum port) (hostAddress ha)