anchor.diff:                                           then "{" + (x.Substring(1)) + "}" 
                                            else x)
           String.Join("/",parts)
  -    let generateSchemaFromType (typ : Type) = 
  -        let sBuilderType = (typedefof<SchemaBuilder<_>>).MakeGenericType(typ)
  -        let sBuilder = sBuilderType.GetConstructor([||]).Invoke([||])
  -        match typ.GetConstructor([||]) with
  -        | null -> ()
  -        | ctor -> let typInstance = ctor.Invoke([||])
  -                  sBuilderType.GetMethod("Default").Invoke(sBuilder, [| typInstance |]) |> ignore
  -        sBuilderType.GetMethod("Build").Invoke(sBuilder, [||]) :?> Schema
       let getTypeDescription (typ : Type) =
           match defs |> Seq.tryFind (fun d -> d.Name = typ.Name) with
           | Some(d) -> if String.IsNullOrWhiteSpace d.Summary 
  
positive.code:                         let bpb = new BodyParameterBuilder()
                          bpb.Name bodyType.Name |> ignore
                          // TODO add description
                          bpb.Schema (bodyType |> generateSchemaFromType) |> ignore
                          bpb.Build() |> opBuilder.Parameter |> ignore
                      else
                          ws.Params 
  
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
  