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:     let inline nullableWriter n writer value func =
          if value <> null then func n writer value
  
      let getInnerTextWriter writer value =
          let func =
              match XmlConfig.Instance.SpecialCharEncoding with
              | UnicodeSerializationType.HexEncoded     -> writeStringUnicode writeUnicodeHex
              | UnicodeSerializationType.DecimalEncoded -> writeStringUnicode writeUnicode
              | _                                       -> writeString
          func writer value
  
      let writeStringObject _ writer (value : obj) =
          let v : string = unbox value
          getInnerTextWriter writer v
  
      let writeObject _ (writer : TextWriter) (value : obj) =
          writer.Write(value)
  
negative.code: 
      /// Try to determine the string writer function
      let getStringWriter (t : Type) = fun () ->
          if t = typeof<string> then
              ValueTypeSerializer.getInnerTextWriter XmlConfig.Instance.SpecialCharEncoding
              |> injectWriteTag
              |> Some
          else None
  
      /// Try to determine a matching value type writer function
      let getValueTypeWriter (t : Type) = fun () ->
  