Inspect non-byte bit strings with Gleam syntax

Author: abs0luty

src/gleam_stdlib.erl

@@ -290,15 +290,19 @@ inspect(Any) when is_integer(Any) ->
     erlang:integer_to_list(Any);
 inspect(Any) when is_float(Any) ->
     io_lib_format:fwrite_g(Any);
-inspect(Binary) when is_binary(Binary) ->
-    case inspect_maybe_utf8_string(Binary, <<>>) of
-        {ok, InspectedUtf8String} -> InspectedUtf8String;
+inspect(Bits) when is_bitstring(Bits) ->
+    case inspect_maybe_utf8_string(Bits, <<>>) of
+        {ok, InspectedUtf8String} ->
+            InspectedUtf8String;
         {error, not_a_utf8_string} ->
-            Segments = [erlang:integer_to_list(X) || <<X>> <= Binary],
-            ["<<", lists:join(", ", Segments), ">>"]
+            case is_binary(Bits) of
+                true ->
+                    Segments = [erlang:integer_to_list(X) || <<X>> <= Bits],
+                    ["<<", lists:join(", ", Segments), ">>"];
+                false ->
+                    inspect_bit_array(Bits)
+            end
     end;
-inspect(Bits) when is_bitstring(Bits) ->
-    inspect_bit_array(Bits);
 inspect(List) when is_list(List) ->
     case inspect_list(List, true) of
         {charlist, _} -> ["charlist.from_string(\"", list_to_binary(List), "\")"];

test/gleam/string_test.gleam

@@ -1250,6 +1250,11 @@ pub fn inspect_fifteen_bit_int_test() {
   assert string.inspect(<<2, 3:size(7)>>) == "<<2, 3:size(7)>>"
 }
 
+@target(erlang)
+pub fn inspect_non_byte_aligned_bit_array_test() {
+  assert string.inspect(<<251, 3:size(3)>>) == "<<251, 3:size(3)>>"
+}
+
 @target(javascript)
 @external(javascript, "../gleam_stdlib_test_ffi.mjs", "circular_reference")
 fn circular_reference() -> Dynamic