anchor.diff:      for cssProp in cssList do
         renderCssProp html cssProp
       
  -    html.Append "\"" |> ignore
  +    html.Append '"' |> ignore
   
     | HTMLAttr.Custom (key, value) -> strAttr html (key.ToLower()) (string value)
     | Data (key, value) -> strAttr html ("data-" + key) (string value)
  
positive.code:   | h -> h
  
  let inline private castHTMLNode (htmlNode: ReactElement): HTMLNode =
    if isNull htmlNode
    then HTMLNode.Empty
    else htmlNode :?> HTMLNode
  
  let renderToString (htmlNode: ReactElement): string =
    let htmlNode = addReactMark (castHTMLNode htmlNode)
    let html = StringBuilder()
    let inline append (text:string) =
      html.Append(text) |> ignore
  
    let rec render (htmlNode: HTMLNode) : unit =
      match htmlNode with
      | HTMLNode.Text str -> escapeHtml html str
      | HTMLNode.RawText str -> append str
      | HTMLNode.Node (tag, attrs, children) ->
        append "<"
        append tag
  
        let child = renderAttrs html attrs tag
  
        if voidTags.Contains tag then 
          append "/>"
        else 
          append ">"
          
          match child with
          | Some c -> append c
          | None ->
            for child in children do
              render (castHTMLNode child)
  
          append "</"
          append tag
          append ">"
      | HTMLNode.List nodes ->
          for node in nodes do
            render (castHTMLNode node)
  
negative.code:   html.Append key |> ignore
    html.Append "=\"" |> ignore
    escapeHtml html value
    html.Append '"' |> ignore
  
  let inline objAttr (html:StringBuilder) (key: string) (value: obj) = strAttr html key (string value)
  
  