anchor.diff:      let writeEnum n writer (value : obj) =
           writeObject n writer value
   
  -    let writeType _ writer (value : obj) =
  +    let writeType n writer (value : obj) =
           let v : Type = unbox value
  -        getInnerTextWriter writer v.AssemblyQualifiedName
  +        let inner = getInnerTextWriter XmlConfig.Instance.SpecialCharEncoding
  +        inner n writer v.AssemblyQualifiedName
   
       let writeException _ writer (value : obj) =
           let v : Exception = unbox value
  
positive.code:     and getCustomWriter (t : Type) = fun () ->
          match XmlConfig.Instance.TryGetSerializer t with
          | Some func ->
              let writer = (fun a (w : TextWriter) x ->
                  let obj = func.Invoke(x) 
                  ValueTypeSerializer.writeStringObject a w obj)
              if not XmlConfig.Instance.UseAttributes then
                  injectWriteTag writer
              else getInjectWriter t writer
  
negative.code:     let inline nullableWriter n writer value func =
          if value <> null then func n writer value
  
      let getInnerTextWriter enc : WriterFunc =
          let innerWriter =
              match enc with
              | UnicodeSerializationType.HexEncoded     -> writeStringUnicode writeUnicodeHex
              | UnicodeSerializationType.DecimalEncoded -> writeStringUnicode writeUnicode
              | _                                       -> writeString
          fun _ w v -> innerWriter w (unbox v)
  
      let writeObject _ (writer : TextWriter) (value : obj) =
          writer.Write(value)
  