anchor.diff:      ///
       member this.WriteHtmlViewAsync (htmlView : XmlNode) =
           let bytes = nodeToUtf8HtmlDoc htmlView
  -        this.SetContentType "text/html"
  +        this.SetContentType "text/html; charset=utf-8"
           this.WriteBytesAsync bytes
   
   // ---------------------------
  
positive.code: let htmlView (htmlView : XmlNode) : HttpHandler =
      let bytes = nodeToUtf8HtmlDoc htmlView
      fun (next : HttpFunc) (ctx : HttpContext) ->
          ctx.SetContentType "text/html"
          ctx.WriteBytesAsync bytes
negative.code:     /// Task of `Some HttpContext` after writing to the body of the response.
      ///
      member this.WriteXmlAsync (dataObj : obj) =
          this.SetContentType "application/xml; charset=utf-8"
          let serializer = this.GetXmlSerializer()
          serializer.Serialize dataObj
          |> this.WriteBytesAsync
  