anchor.diff:                  | Choice1Of2 body -> processHandler body
                   | Choice2Of2 error -> processFailure error
       
  -    let generateRoutingTable (modules : Dictionary<string, HttpHandlerBase<_, _>>) = 
  -        let result = new Dictionary<string, HttpHandlerBase<_, _>>(StringComparer.OrdinalIgnoreCase)
  +    let generateRoutingTable (modules : Dictionary<string, IHttpHandler>) = 
  +        let result = new Dictionary<string, IHttpHandler>(StringComparer.OrdinalIgnoreCase)
           for m in modules do
               let valueWithSlash, valueWithoutSlash = 
                   let intermediate = m.Key.Substring(m.Key.IndexOf("-") + 1)
  
positive.code:     
      /// Standard FlexSearch response to all web requests 
      type Response<'T> = 
          { Data : 'T
            Error : OperationMessage }
          
          /// Populate response with data part populated
  
negative.code:     let inline getIndexName (owin : IOwinContext) = removeTrailingSlash owin.Request.Uri.Segments.[2]
      let inline subId (owin : IOwinContext) = removeTrailingSlash owin.Request.Uri.Segments.[4]
      
      /// A helper interface to dynamically find all the HttpHandlerBase classes
      type IHttpHandler = 
          abstract Execute : RequestContext -> unit
      
  