anchor.diff:  open Newtonsoft.Json.Linq
   open Types
   open Infrastructure
  -
  -let defaultSerializerSettings = Microsoft.FSharpLu.Json.Compact.Internal.Settings.settings
  -defaultSerializerSettings.NullValueHandling <- NullValueHandling.Ignore
  -defaultSerializerSettings.MissingMemberHandling <- MissingMemberHandling.Ignore
  -
  -let defaultSerializer = JsonSerializer.Create(defaultSerializerSettings)
   
   type JsonObjectBuilder() = 
       member __.Yield(x: JsonValue) = [x]
  
positive.code: 
  let jsonObject = JsonObjectBuilder()
  
  type DefaultConverter () = 
      inherit ICouchConverter()
  
      let stringify o = JsonConvert.SerializeObject(o, defaultSerializerSettings)
  
negative.code:               Reason = token.Value<string>("reason")
                Rev = rev }
              |> Some
  
      new() = 
          let settings = makeDefaultSettings()
          DefaultConverter(makeDefaultSerializer settings, settings)
  
      override __.ConvertListOptionsToMap options = 
          let rec inner remaining qs = 
  