   end
 
   defp comment_end_bang(html, s) do
-    new_comment = %Comment{s.token | data: [s.token.data | "--!"]}
+    new_comment = %Comment{s.token | data: [s.token.data | ["--!"]]}
 
     comment(html, %{s | token: new_comment})
   end


  # § tokenizer-script-data-escape-start-dash-state

  defp script_data_escape_start_dash(<<?-, html::binary>>, s) do
    script_data_escaped_dash_dash(
      html,
      %{
        s
        | tokens: append_char_token(s, @hyphen_minus)
      }
    )
  end

  defp script_data_escape_start_dash(html, s) do
    script_data(html, s)
  end

  # § tokenizer-script-data-escaped-state


  # § tokenizer-comment-end-bang-state

  defp comment_end_bang(<<?-, html::binary>>, s) do
    new_comment = %Comment{s.token | data: [s.token.data | ["--!"]]}

    comment_end_dash(html, %{s | token: new_comment})
  end
