git.iko.soy/typeable/swagger2
on master help sign in
Factor out SwaggerSchemaCommon and add model for SwaggerSchemaItems
commit60c11bdbe959ffee88bc97fdd306f55116da113f authorNickolay Kudasov <nickolay.kudasov@gmail.com> dateFri 6 Nov 2015, 20:16 (11 years ago) parent5fdd390
1 file changed+13−39
src/Data/Swagger/Internal.hs+13−39
src/Data/Swagger/Internal.hs+13−39
@@ -394,12 +394,21 @@ data SwaggerSchema = SwaggerSchema
394394 , swaggerSchemaMaxProperties :: Maybe Integer
395395 , swaggerSchemaMinProperties :: Maybe Integer
396396
397− -- | Declares the value of the parameter that the server will use if none is provided,
397+ , swaggerSchemaCommon :: SwaggerSchemaCommon
398+ } deriving (Show)
399+
400+data SwaggerSchemaItems
401+ = SwaggerSchemaItemsObject SwaggerSchema
402+ | SwaggerSchemaItemsArray [SwaggerSchema]
403+ deriving (Show)
404+
405+data SwaggerSchemaCommon = SwaggerSchemaCommon
406+ { -- | Declares the value of the parameter that the server will use if none is provided,
398407 -- for example a @"count"@ to control the number of results per page might default to @100@
399408 -- if not supplied by the client in the request.
400409 -- (Note: "default" has no meaning for required parameters.)
401410 -- Unlike JSON Schema this value MUST conform to the defined type for this parameter.
402− , swaggerSchemaDefault :: Maybe JSON.Value
411+ swaggerSchemaDefault :: Maybe JSON.Value
403412
404413 , swaggerSchemaMaximum :: Maybe Integer
405414 , swaggerSchemaExclusiveMaximum :: Maybe Bool
@@ -415,9 +424,6 @@ data SwaggerSchema = SwaggerSchema
415424 , swaggerSchemaMultipleOf :: Maybe Integer
416425 } deriving (Show)
417426
418−data SwaggerSchemaItems = SwaggerSchemaItems
419− deriving (Show)
420−
421427data SwaggerXml = SwaggerXml
422428 { -- | Replaces the name of the element/attribute used for the described schema property.
423429 -- When defined within the @'SwaggerItems'@ (items), it will affect the name of the individual XML elements within the list.
@@ -461,23 +467,7 @@ data SwaggerItems = SwaggerItems
461467 -- Default value is @'SwaggerItemsCollectionCSV'@.
462468 , swaggerItemsCollectionFormat :: SwaggerItemsCollectionFormat
463469
464− -- | Declares the value of the item that the server will use if none is provided.
465− -- (Note: "default" has no meaning for required items.)
466− -- Unlike JSON Schema this value MUST conform to the defined type for the data type.
467− , swaggerItemsDefault :: JSON.Value
468−
469− , swaggerItemsMaximum :: Maybe Integer
470− , swaggerItemsExclusiveMaximum :: Maybe Bool
471− , swaggerItemsMinimum :: Maybe Integer
472− , swaggerItemsExclusiveMinimum :: Maybe Bool
473− , swaggerItemsMaxLength :: Maybe Integer
474− , swaggerItemsMinLength :: Maybe Integer
475− , swaggerItemsPattern :: Maybe Text
476− , swaggerItemsMaxItems :: Maybe Integer
477− , swaggerItemsMinItems :: Maybe Integer
478− , swaggerItemsUniqueItems :: Maybe Bool
479− , swaggerItemsEnum :: Maybe [JSON.Value]
480− , swaggerItemsMultipleOf :: Maybe Integer
470+ , swaggerItemsCommon :: SwaggerSchemaCommon
481471 } deriving (Show)
482472
483473-- | A container for the expected responses of an operation.
@@ -537,23 +527,7 @@ data SwaggerHeader = SwaggerHeader
537527 -- Default value is @'SwaggerItemsCollectionCSV'@.
538528 , swaggerHeaderCollectionFormat :: SwaggerItemsCollectionFormat
539529
540− -- | Declares the value of the item that the server will use if none is provided.
541− -- (Note: "default" has no meaning for required items.)
542− -- Unlike JSON Schema this value MUST conform to the defined type for the data type.
543− , swaggerHeaderDefault :: JSON.Value
544−
545− , swaggerHeaderMaximum :: Maybe Integer
546− , swaggerHeaderExclusiveMaximum :: Maybe Bool
547− , swaggerHeaderMinimum :: Maybe Integer
548− , swaggerHeaderExclusiveMinimum :: Maybe Bool
549− , swaggerHeaderMaxLength :: Maybe Integer
550− , swaggerHeaderMinLength :: Maybe Integer
551− , swaggerHeaderPattern :: Maybe Text
552− , swaggerHeaderMaxItems :: Maybe Integer
553− , swaggerHeaderMinItems :: Maybe Integer
554− , swaggerHeaderUniqueItems :: Maybe Bool
555− , swaggerHeaderEnum :: Maybe [JSON.Value]
556− , swaggerHeaderMultipleOf :: Maybe Integer
530+ , swaggerHeaderCommon :: SwaggerSchemaCommon
557531 } deriving (Show)
558532
559533data SwaggerExample = SwaggerExample