Add `concat_bit_strings` fun to `bit_builder`

1 files changed, 22 insertions, 1 deletions

diff --git a/src/gleam/bit_builder.gleam b/src/gleam/bit_builder.gleam
index a3791c8..2a7d435 100644
--- a/src/gleam/bit_builder.gleam
+++ b/src/gleam/bit_builder.gleam
@@ -108,7 +108,7 @@ pub fn append_string(to: BitBuilder, suffix: String) -> BitBuilder {
   append_builder(to, from_string(suffix))
 }
 
-/// Joins a list of builders into a single builders.
+/// Joins a list of builders into a single builder.
 ///
 /// Runs in constant time.
 ///
@@ -127,6 +127,27 @@ if javascript {
   }
 }
 
+/// Joins a list of bit strings into a single builder.
+///
+/// Runs in constant time.
+///
+pub fn concat_bit_strings(bits: List(BitString)) -> BitBuilder {
+  do_concat_bit_strings(bits)
+}
+
+if erlang {
+  external fn do_concat_bit_strings(List(BitString)) -> BitBuilder =
+    "gleam_stdlib" "identity"
+}
+
+if javascript {
+  fn do_concat_bit_strings(bits: List(BitString)) -> BitBuilder {
+    bits
+    |> list.map(fn(b) { from_bit_string(b) })
+    |> concat()
+  }
+}
+
 /// Creates a new builder from a string.
 ///
 /// Runs in constant time when running on Erlang.