Ipv6

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## Unreleased
 
+- Added transparent support for IPv6.
+
+## v2.2.0 - 2024-04-19
+
 - Added the `dispatch`, `dispatch_bits`, `verify_tls`, and `configure`
   functions.
 

src/gleam/httpc.gleam

@@ -25,6 +25,15 @@ type BodyFormat {
 
 type ErlOption {
   BodyFormat(BodyFormat)
+  SocketOpts(List(SocketOpt))
+}
+
+type SocketOpt {
+  Ipfamily(Inet6fb4)
+}
+
+type Inet6fb4 {
+  Inet6fb4
 }
 
 type ErlSslOption {
@@ -94,7 +103,7 @@ pub fn dispatch_bits(
     True -> []
     False -> [Ssl([Verify(VerifyNone)])]
   }
-  let erl_options = [BodyFormat(Binary)]
+  let erl_options = [BodyFormat(Binary), SocketOpts([Ipfamily(Inet6fb4)])]
 
   use response <- result.then(case req.method {
     http.Options | http.Head | http.Get -> {

test/gleam_httpc_test.gleam

@@ -85,3 +85,10 @@ pub fn invalid_tls_test() {
     |> httpc.dispatch(req)
   let assert 200 = response.status
 }
+
+pub fn ipv6_test() {
+  // This URL is ipv6 only
+  let assert Ok(req) = request.to("https://ipv6.google.com")
+  let assert Ok(resp) = httpc.send(req)
+  let assert 200 = resp.status
+}