@@ -126,7 +126,7 @@ licenseExampleJSON = [aesonQQ|
126126-- =======================================================================
127127
128128operationExample :: SwaggerOperation
129−operationExample = SwaggerOperation
129+operationExample = mempty
130130 { swaggerOperationTags = ["pet"]
131131 , swaggerOperationSummary = Just "Updates a pet in the store with form data"
132132 , swaggerOperationDescription = Just ""
@@ -136,26 +136,14 @@ operationExample = SwaggerOperation
136136 , swaggerOperationParameters = params
137137 , swaggerOperationResponses = responses
138138 , swaggerOperationSecurity = security
139− , swaggerOperationExternalDocs = Nothing
140− , swaggerOperationSchemes = Nothing
141− , swaggerOperationDeprecated = False
142139 }
143140 where
144141 security = [SwaggerSecurityRequirement [("petstore_auth", ["write:pets", "read:pets"])]]
145142
146− responses = SwaggerResponses
147− { swaggerResponsesDefault = Nothing
148− , swaggerResponsesResponses =
149− [ (200, SwaggerResponse
150− { swaggerResponseDescription = "Pet updated."
151− , swaggerResponseSchema = Nothing
152− , swaggerResponseHeaders = mempty
153− , swaggerResponseExamples = Nothing } )
154− , (405, SwaggerResponse
155− { swaggerResponseDescription = "Invalid input"
156− , swaggerResponseSchema = Nothing
157− , swaggerResponseHeaders = mempty
158− , swaggerResponseExamples = Nothing } ) ] }
143+ responses = mempty
144+ { swaggerResponsesResponses =
145+ [ (200, mempty { swaggerResponseDescription = "Pet updated." })
146+ , (405, mempty { swaggerResponseDescription = "Invalid input" }) ] }
159147
160148 params =
161149 [ SwaggerParameter
@@ -175,14 +163,9 @@ operationExample = SwaggerOperation
175163 , swaggerParameterSchema = SwaggerParameterOther (stringSchema SwaggerParameterFormData) }
176164 ]
177165
178− stringSchema i = SwaggerParameterOtherSchema
166+ stringSchema i = mempty
179167 { swaggerParameterOtherSchemaIn = i
180168 , swaggerParameterOtherSchemaType = SwaggerParamString
181− , swaggerParameterOtherSchemaFormat = Nothing
182− , swaggerParameterOtherSchemaAllowEmptyValue = False
183− , swaggerParameterOtherSchemaItems = Nothing
184− , swaggerParameterOtherSchemaCollectionFormat = Nothing
185− , swaggerParameterOtherSchemaCommon = emptySchemaCommon
186169 }
187170
188171operationExampleJSON :: Value
@@ -248,24 +231,10 @@ operationExampleJSON = [aesonQQ|
248231-- =======================================================================
249232
250233schemaPrimitiveExample :: SwaggerSchema
251−schemaPrimitiveExample = SwaggerSchema
234+schemaPrimitiveExample = mempty
252235 { swaggerSchemaType = SwaggerSchemaString
253236 , swaggerSchemaFormat = Just "email"
254− , swaggerSchemaTitle = Nothing
255− , swaggerSchemaDescription = Nothing
256− , swaggerSchemaRequired = Nothing
257− , swaggerSchemaItems = Nothing
258− , swaggerSchemaAllOf = Nothing
259− , swaggerSchemaProperties = mempty
260− , swaggerSchemaAdditionalProperties = Nothing
261− , swaggerSchemaDiscriminator = Nothing
262− , swaggerSchemaReadOnly = Nothing
263− , swaggerSchemaXml = Nothing
264− , swaggerSchemaExternalDocs = Nothing
265− , swaggerSchemaExample = Nothing
266− , swaggerSchemaMaxProperties = Nothing
267− , swaggerSchemaMinProperties = Nothing
268− , swaggerSchemaCommon = emptySchemaCommon }
237+ }
269238
270239schemaPrimitiveExampleJSON :: Value
271240schemaPrimitiveExampleJSON = [aesonQQ|
@@ -275,19 +244,3 @@ schemaPrimitiveExampleJSON = [aesonQQ|
275244}
276245|]
277246
278−emptySchemaCommon :: SwaggerSchemaCommon
279−emptySchemaCommon = SwaggerSchemaCommon
280− { swaggerSchemaDefault = Nothing
281− , swaggerSchemaMaximum = Nothing
282− , swaggerSchemaExclusiveMaximum = Nothing
283− , swaggerSchemaMinimum = Nothing
284− , swaggerSchemaExclusiveMinimum = Nothing
285− , swaggerSchemaMaxLength = Nothing
286− , swaggerSchemaMinLength = Nothing
287− , swaggerSchemaPattern = Nothing
288− , swaggerSchemaMaxItems = Nothing
289− , swaggerSchemaMinItems = Nothing
290− , swaggerSchemaUniqueItems = Nothing
291− , swaggerSchemaEnum = Nothing
292− , swaggerSchemaMultipleOf = Nothing }
293−