fix the bug

Author: bcpeinhardt

compiler-core/src/erlang/pattern.rs

@@ -259,7 +259,7 @@ fn pattern_segment<'a>(
     let guards = RefCell::new(guards);
 
     let create_document = |env: &mut Env<'a>| match value {
-        Pattern::String { value, .. } => value.to_doc().surround("\"", "\""),
+        Pattern::String { value, .. } => string_inner(value).surround("\"", "\""),
         Pattern::Discard { .. }
         | Pattern::Variable { .. }
         | Pattern::Int { .. }

compiler-core/src/erlang/tests/snapshots/gleam_core__erlang__tests__bit_arrays__unicode_character_encoding.snap.new renamed to compiler-core/src/erlang/tests/snapshots/gleam_core__erlang__tests__bit_arrays__unicode_character_encoding.snap

@@ -1,8 +1,6 @@
 ---
 source: compiler-core/src/erlang/tests/bit_arrays.rs
-assertion_line: 320
 expression: "\npub fn main() -> Nil {\n  let foo = <<\"\\u{feff}foo\":utf8>>\n  let _bits = case foo {\n    <<\"\\u{feff}\":utf8, rest: bits>> -> rest\n    _ -> foo\n  }\n  Nil\n}\n"
-snapshot_kind: text
 ---
 ----- SOURCE CODE
 
@@ -27,7 +25,7 @@ pub fn main() -> Nil {
 main() ->
     Foo = <<"\x{feff}foo"/utf8>>,
     _ = case Foo of
-        <<"\u{feff}"/utf8, Rest/bitstring>> ->
+        <<"\x{feff}"/utf8, Rest/bitstring>> ->
             Rest;
 
         _ ->