anchor.diff:              | 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 =
   
  
positive.code:             info :: ps, attrs
  
      /// Get the PropertyWriterInfo array for the given type
      and getProperties (t : Type) =
          match (!propertyCache).TryGetValue t with
          | true, props -> props
          | _ ->
  
negative.code: 
      /// Get the appropriate writer function for the
      /// specified value type
      let getValueTypeInnerWriter (t : Type) =
          if t = typeof<Nullable<DateTime>> then
              Some writeNullableDateTime
          elif t = typeof<Guid> then
  