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:                                          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 
  
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
  