anchor.diff:          let tInfo = getTypeInfo targetType
           let name = getDefaultNameInfo tInfo.ClsName
           let writerFunc = getWriterFunc targetType
  -        match tInfo.Namespace with
  -        | Some ns ->
  -            writeTagNamespace name.Name ns name writer writerFunc element
  -        | None ->
  -            if Array.isEmpty tInfo.Attributes
  -            then writeTag name.Name name writer writerFunc element
  -            else writeTagAttributes name.Name (List.ofArray tInfo.Attributes) name writer writerFunc element
  +        writerFunc name writer element
  +//        match tInfo.Namespace with
  +//        | Some ns ->
  +//            writeTagNamespace name.Name ns name writer writerFunc element
  +//        | None ->
  +//            if Array.isEmpty tInfo.Attributes
  +//            then writeTag name.Name name writer writerFunc element
  +//            else writeTagAttributes name.Name (List.ofArray tInfo.Attributes) name writer writerFunc element
   
       /// Clear the serializer cache
       let clearCache() =
  
positive.code:     let getInstanceWriter (t : Type) = fun() ->
          match t.GetMethod(writerFuncName, instanceFlags, null, Type.EmptyTypes, null) |> Utils.toOption with
          | Some func ->
              (fun _ (w : TextWriter) x -> w.Write(func.Invoke(x, null))) |> Some
          | _ -> None
  
      /// Try to determine a static function 'ToXml'
      let getStaticWriter (t : Type) = fun () ->
          match t.GetMethod(writerFuncName, staticFlags, null, [| t |], null) |> Utils.toOption with
          | Some func ->
              (fun _ (w : TextWriter) x -> w.Write(func.Invoke(null, [| x |]))) |> Some
          | _ -> None
  
      /// Try to get a custom serializer function
      let getCustomWriter (t : Type) = fun () ->
          match XmlConfig.Instance.TryGetSerializer t with
          | Some func ->
              Some (fun _ (w : TextWriter) x -> w.Write(func.Invoke(x)))
          | _ -> None
  
      /// Return a default NameInfo instance for the specified name
  
negative.code:             | TypeCode.UInt64 -> Some writeUInt64
              | _ -> None
  
      let getValueTypeWriter (t : Type) =
          match getValueTypeInnerWriter t with
          | Some writer ->
              let write (n : NameInfo) w v = SerializerBase.writeTag n.Name n w writer v
              Some write
          | None -> None
  
  /// Serialization logic for list and collection types
  module internal ListSerializer =
  
  