anchor.diff:              foodsynonymsanalyzer.Tokenizer <- new Tokenizer.Dto(TokenizerName = "standard")
               foodsynonymsanalyzer.Filters.Add(new TokenFilter.Dto(FilterName = "standard"))
               foodsynonymsanalyzer.Filters.Add(new TokenFilter.Dto(FilterName = "lowercase"))
  -
               let synonymfilter = new TokenFilter.Dto(FilterName = "synonym")
               let synonymFileName = "foodsynonyms.txt"
               buildSynonymFile synonymFileName
               synonymfilter.Parameters.Add("synonyms", synonymFileName)
  -            
  -            // TODO
  -            // This filter fails with the following exception:
  -            // Cannot load class: FlexLucene.Analysis.Synonym.SolrSynonymParser; 
  -            //foodsynonymsanalyzer.Filters.Add(synonymfilter)
  -
  -
  +            foodsynonymsanalyzer.Filters.Add(synonymfilter)
               do! analyzerService.UpdateAnalyzer(foodsynonymsanalyzer)
               // Custom analyzer for strip to numbers
               let striptonumbersanalyzer = new Analyzer.Dto(AnalyzerName = "striptonumbersanalyzer")
  
positive.code: // ----------------------------------------------------------------------------
  namespace FlexSearch.Core
  
  open System
  open System.Linq
  open Newtonsoft.Json
  open FlexLucene.Analysis.Synonym
  open FlexLucene.Util
  open System.IO
  
  type Country() = 
      member val Id = Unchecked.defaultof<string> with get, set
  
negative.code:             match CreateIndex() with
              | Choice1Of2(_) -> Choice1Of2()
              | Choice2Of2(e) -> Choice2Of2(e)
  