anchor.diff:                                  rewriteKey (List.ofSeq bson.RawValue.Keys) bson propType propKey
                                   continueToNext()
                           |_,(:?BsonArray as bsonArray)->
  -=======
  -                            continueToNext()
  -                        | _ , (:?BsonDocument as bson) ->
  -                            let cEntityType = entityType.GetProperty(y).PropertyType
  -                            if FSharpType.IsUnion cEntityType then 
  -                               continueToNext()
  -                            else
  -                                let cKey = getKeyFieldName cEntityType
  -                                rewriteKey (List.ofSeq bson.RawValue.Keys) bson cEntityType cKey
  -                                continueToNext()
  -                        | _, (:?BsonArray as bsonArray) ->
  ->>>>>>> 97f2364eed955dc69928279817023da26a667799
                               let collectionType = entityType.GetProperty(y).PropertyType
                               let elementType = getCollectionElementType collectionType
                               if  FSharpType.IsRecord elementType then
  
positive.code:               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 -> 
  
negative.code:                             |> withKeyValue key id
                              |> removeEntryByKey "_id"
                              |> ignore
                              continueToNext()
                          // Do not rewrite keys of Maps/Dictionaries
                          |_, (:?BsonDocument as bson) when entityType.Name = "FSharpMap`2" -> 
  