-- Examples:
--
-- >>> resolve_address "example.com"
--- Right [93.184.216.119]
--- >>> resolve_address "93.184.216.119"
--- Right [93.184.216.119]
+-- Right [93.184.216.34]
+-- >>> resolve_address "93.184.216.34"
+-- Right [93.184.216.34]
--
resolve_address :: String -> IO (Either DNSError [IPv4])
resolve_address s =