anchor.diff:            Paths=paths
             Info=__.Description
             Swagger="2.0" }
  -    member __.App 
  +    member __.App
         with get () =
  -        let swaggerWebPart = 
  +        let swaggerWebPart =
             path __.SwaggerJsonPath
               >=> OK (__.Documentation.ToJson()) // JSON __.Documentation
               >=> Writers.setMimeType "application/json; charset=utf-8"
  
positive.code: 
      type Type with
        member this.FormatAndName
          with get () = 
            match this with
            | _ when TypeHelpers.typeFormatsNames.ContainsKey this -> 
              Some (TypeHelpers.typeFormatsNames.Item this)
            | _ when this.IsPrimitive ->
              Some (TypeHelpers.typeFormatsNames.Item (typeof<string>))
            | _ -> None
  
        member this.Describes() : ObjectDefinition =
          let props = 
            this.GetProperties()
            |> Seq.map (
                fun p -> 
                  match p.PropertyType.FormatAndName with
                  | Some (ty,na) -> p.Name, Primitive(ty,na)
                  | None -> 
                      p.Name, Ref(p.PropertyType.Describes())
            ) |> dict
          {Id=this.Name; Properties=props}
  
negative.code:           writer.Flush()
          override __.ReadJson(_:JsonReader,_:Type,_:obj,_:JsonSerializer) =
            unbox ""
          override __.CanConvert(objectType:Type) =
            objectType = typeof<PropertyDefinition>
    and ParamDefinitionConverter()=
      inherit JsonConverter()
  