anchor.diff:  
   type EcsContractResolver () =
       inherit Newtonsoft.Json.Serialization.DefaultContractResolver ()
  -
  -   // let createProperty memberInfo memberSerialization =
      
       member this.CreateNewProperty(memberInfo, memberSerialization) =
           let property = base.CreateProperty(memberInfo, memberSerialization)
  
positive.code:         let pInfo = memberInfo :> obj :?> PropertyInfo
          if not isPartOfCtor && not (pInfo.CanRead && pInfo.CanWrite) then
              property.Ignored <- true
  
          property
  
  
negative.code:         let settings = JsonSerializerSettings ()
          settings.ContractResolver <- EcsContractResolver ()
          settings.Formatting <- Formatting.Indented
          //settings.TypeNameHandling <- TypeNameHandling.Objects
          JsonConvert.SerializeObject (fullEntities, settings)
  
  [<AutoOpen>]
  