anchor.diff:                          let bpb = new BodyParameterBuilder()
                           bpb.Name bodyType.Name |> ignore
                           // TODO add description
  -                        bpb.Schema (bodyType |> generateSchemaFromType) |> ignore
  +                        bpb.Schema (bodyType |> typeToSwaggerSchema |> snd) |> ignore
                           bpb.Build() |> opBuilder.Parameter |> ignore
                       else
                           ws.Params 
  
positive.code:         match swaggerSchemaCache.TryGetValue(coreType.Name) with
          | (true, schema) -> (coreType.Name, schema)
          | _ -> 
              printfn "Generating swagger schema for %s" coreType.Name
              // First try and find a definition we can use to complement the schema
              let def = defs |> Seq.tryFind (fun x -> x.Name = coreType.Name)
              try
  
negative.code:                     opBuilder.Response (fun rBuilder -> 
                          let retType = handler |> getReturnType
                          rBuilder.Description (retType |> getTypeDescription)  |> ignore
                          rBuilder.Schema (retType |> typeToSwaggerSchema |> snd) |> ignore)
                      |> ignore
  
                      // Generate the POST or query parameters
  