anchor.diff:      let instanceFlags = BindingFlags.Public ||| BindingFlags.Instance
       let staticFlags = BindingFlags.Public ||| BindingFlags.Static
   
  -    let writeEmpty _ _ = ()
  -
  -    let writeAbstractProperties (writer : TextWriter) (value : obj) =
  +    let writeEmpty _ _ _ = ()
  +
  +    let writeAbstractProperties _ (writer : TextWriter) (value : obj) =
           ()
   
       /// Determine the name of the TypeInfo based on the given type
  
positive.code:             let! strWriter = getStringWriter t
              let! valueWriter = getValueTypeWriter t
              let! specialWriter = getSpecialWriters t
              let! arrayWriter = getArrayWriter attr t
              let! dictWriter = getDictionaryWriter attr t
              let! genericWriter = getGenericWriter t
              let! enumerableWriter = getEnumerableWriter attr t
              let! instanceWriter = getInstanceWriter t
  
negative.code:     /// Write the given type using the appropriate serialization logic
      let writeType<'a> (writer : TextWriter) (element : 'a) =
          let tInfo = getTypeInfo typeof<'a>
          let name = getDefaultNameInfo tInfo.ClsName
          writeTag name.Name name writer (getWriterFunc typeof<'a>) element
  