anchor.diff:  [<Sealed>]
   type GetSearchHandler(searchService : ISearchService) = 
       inherit HttpHandlerBase<SearchQuery.Dto, obj>(false)
  -    override this.Process(request, body) = 
  +    override __.Process(request, body) = 
           let processRequest (indexName, owin : IOwinContext) = 
               let query = 
                   match body with
  
positive.code: [<Sealed>]
  type GetAllAnalyzerHandler(analyzerService : IAnalyzerService) = 
      inherit HttpHandlerBase<NoBody, Analyzer.Dto []>()
      override this.Process(request, body) = SomeResponse(analyzerService.GetAllAnalyzers() |> Choice1Of2, Ok, BadRequest)
  
  /// <summary>
  ///  Analyze a text string using the passed analyzer.
  
negative.code: [<Sealed>]
  type CreateOrUpdateAnalyzerByIdHandler(analyzerService : IAnalyzerService) = 
      inherit HttpHandlerBase<Analyzer.Dto, unit>()
      override __.Process(request, body) = 
          body.Value.AnalyzerName <- request.ResId.Value
          SomeResponse(analyzerService.UpdateAnalyzer(body.Value), Ok, BadRequest)
  
  