-- | Return the `IP` address associated with a URL.
ipAddress :: String -> IO IP
ipAddress url =
    IPv4 . read . ipFirstLine
    <$> readProcess "host" [domainName url] []
    where ipFirstLine = last . words . head . lines
ipAddress :: String -> IO IP
ipAddress url =
    IPv4 . read . ipFirstLine
    <$> readProcess "host" [domainName url] []
    where ipFirstLine = last . words . head . lines
ipAddress url =
    IPv4 . read . ipFirstLine
    <$> readProcess "host" [domainName url] []
    where ipFirstLine = last . words . head . lines