anchor.diff:  [<AutoOpen>]
   module SwaggerGenerator =
       let swaggerPath = __SOURCE_DIRECTORY__ + @"\swagger.json"
  +    let swaggerSchemaCache = new ConcurrentDictionary<string, Schema>()
   
       // Helper methods
       let propVal instance propName (typ : Type) = typ.GetProperty(propName).GetValue(instance)
  
positive.code: open System
  open System.IO
  open System.Collections.Generic
  open System.Collections
  open System.Linq
  open System.Reflection
  
negative.code:         | e -> failwithf "An error occurred while converting Web Service %s to Swagger operation:\n%s" ws.Name (e |> exceptionPrinter)
  
      let dtoDefinitions() = coreDtos |> Seq.zip docDtos
                             |> Seq.map (fun (doc, core) -> typeToSwaggerSchema core)
      let enumDefinitions() = coreEnums |> Seq.zip docEnums
                              |> Seq.map (fun (doc, core) -> enumToSwaggerSchema doc core)
      let wsApis() = coreWss |> Seq.zip docWss
                     |> Seq.map (fun (def, core) -> wsToSwaggerPath def core)
                     |> Seq.concat
  