anchor.diff:      abstract GetSearchProfileScript : scriptSig:string -> Choice<SearchProfileDelegate, IMessage>
   
   [<Sealed>]
  -type ScriptService(threadSafeWriter : ThreadSafeFileWriter) as self = 
  +type ScriptService() = 
       let scripts = conDict<Scripts.T>()
       let addScripts (s : seq<string * Scripts.T>) = 
           s |> Seq.iter (fun (scriptName, script) -> scripts.TryAdd(scriptName, script) |> ignore)
  
positive.code:             }
          
          member __.GetAllIndex() = state.Values.ToArray() |> Array.map fst
          member __.UpdateIndexFields(fields : Field.Dto []) = failwith "Not implemented yet"
  
  [<Sealed>]
  type SearchService(parser : IFlexParser, scriptService : IScriptService, queryFactory : IFlexFactory<IFlexQuery>, indexService : IIndexService) = 
  
negative.code: open System.Runtime.Caching
  open System.Threading.Tasks
  open System.Threading.Tasks.Dataflow
  
  /// General factory Interface for all MEF based factories
  type IFlexFactory<'T> = 
  