anchor.diff:          sourceDoc.Fields.Add(recordType, sourceRecordType)
           sourceDoc.Fields.Add(targetRecords, formatter.SerializeToString(sourceRecord.TargetRecords))
           documentService.AddDocument(sourceDoc) |> ignore
  -        
  +
   [<Sealed>]
   [<Name("POST-/indices/:id/duplicatedetection/:id")>]
   type DuplicateDetectionHandler(indexService : IIndexService, documentService : IDocumentService, searchService : ISearchService) = 
  
positive.code:             if results.Meta.RecordsReturned > 1 then 
                  !>"Duplicate Found"
                  let header = 
                      new SourceRecord(session.SessionId, SourceRecordId = record.[Constants.IdField], SourceDisplayName = record.[session.DisplayFieldName])
                  let docs = results |> toFlatResults
                  let mutable i = 1
                  for result in docs.Documents do
  
negative.code:         template <- template.Replace("{{AggregratedResults}}", aggrBuilder.ToString())
          File.WriteAllText
              (Constants.WebFolder +/ "Reports" 
               +/ (sprintf "%s_%s_%s_cutoff_%i_%i.html" request.IndexName request.ProfileName 
                       (Path.GetFileNameWithoutExtension(request.SourceFileName)) (int request.CutOff) 
                       (GetCurrentTimeAsLong())), template)
      
      let requestProcessor = 
  