anchor.diff:                else "Id"
                    
               let rewriteAllKey (entity:BsonDocument)=    
  -<<<<<<< HEAD
                   
                   let rec rewriteKey (xs:string list) (entity:BsonDocument) (entityType: Type) key=
  -=======
  -                let xs = List.ofSeq entity.RawValue.Keys 
  -                let rec rewriteKey (xs:string list) (entity:BsonDocument) (entityType: Type) key =
  ->>>>>>> 97f2364eed955dc69928279817023da26a667799
                       match xs with 
                       | []  -> ()
                       | y :: ys -> 
  
positive.code:                             |> withKeyValue key id
                              |> removeEntryByKey "_id"
                              |> ignore
  <<<<<<< HEAD
                              continueToNext()
                          // Do not rewrite keys of Maps/Dictionaries
                          |_, (:?BsonDocument as bson) when entityType.Name = "FSharpMap`2" -> 
  
negative.code:                                 continueToNext()
                              else 
                                  continueToNext()
                          |_ ->continueToNext()
                  
                  let keys = List.ofSeq entity.RawValue.Keys
                  rewriteKey keys entity entityType (getKeyFieldName entityType)
                  entity
  
              rewriteAllKey entity 
              |> LiteDB.JsonSerializer.Serialize
              |> fun json -> JsonConvert.DeserializeObject(json, entityType, converters)
      let serializeField(any: obj) : BsonValue = 
          // Entity => Json => Bson
          let json = JsonConvert.SerializeObject(any, Formatting.None, converters);
  