anchor.diff:              | _ -> ()
   
           { Definitions=definitions
  -          BasePath=""; Host=""; Schemes=["http"]
  +          BasePath=null; Host=null; Schemes=["http"]
             Paths=paths
             Info=__.Description
             Swagger="2.0" }
  
positive.code:           let d = unbox<ObjectDefinition>(value)
            
            writer.WriteStartObject()
            
            writer.WritePropertyName "id"
            writer.WriteValue d.Id
  
            writer.WritePropertyName "type"
            writer.WriteValue "object"
  
negative.code:       Paths:IDictionary<Path,IDictionary<HttpVerb,PathDefinition>>
        Definitions:IDictionary<string,ObjectDefinition> }
      member __.ToJson() =
        let settings = new JsonSerializerSettings(NullValueHandling = NullValueHandling.Ignore)
        settings.ContractResolver <- new CamelCasePropertyNamesContractResolver()
        settings.Converters.Add(new ResponseDocConverter())
        settings.Converters.Add(new PropertyDefinitionConverter())
  