NorfairKing/autodocodec
1
1
Fork 0
mirror of https://github.com/NorfairKing/autodocodec.git synced 2024-11-26 16:06:31 +03:00
Code Issues Projects Releases Wiki Activity

OpenAPI schemas for maps should indicate they are objects

Browse Source
This commit is contained in:
Daniel Chambers 2022-06-16 16:38:00 +10:00
parent 00649ce417
commit 6bdfb8d27c
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
autodocodec-api-usage/test_resources/openapi-schema/map-text-int.json
View File

@ -6,7 +6,8 @@
"maximum": 9223372036854775807,
"minimum": -9223372036854775808,
"type": "number"
}
},
"type": "object"
}
}
},

3
autodocodec-api-usage/test_resources/openapi-schema/object.json
View File

@ -4,7 +4,8 @@
"(KeyMap Value)": {
"additionalProperties": {
"additionalProperties": true
}
},
"type": "object"
}
}
},

6
autodocodec-openapi3/src/Autodocodec/OpenAPI/Schema.hs
View File

@ -67,7 +67,8 @@ declareNamedSchemaVia c' Proxy = evalStateT (go c') mempty
pure $
NamedSchema Nothing $
mempty
{ _schemaAdditionalProperties = Just $ AdditionalPropertiesSchema $ _namedSchemaSchema <$> itemsSchemaRef
{ _schemaType = Just OpenApiObject,
_schemaAdditionalProperties = Just $ AdditionalPropertiesSchema $ _namedSchemaSchema <$> itemsSchemaRef
}
MapCodec c -> do
itemsSchema <- go c
@ -75,7 +76,8 @@ declareNamedSchemaVia c' Proxy = evalStateT (go c') mempty
pure $
NamedSchema Nothing $
mempty
{ _schemaAdditionalProperties = Just $ AdditionalPropertiesSchema $ _namedSchemaSchema <$> itemsSchemaRef
{ _schemaType = Just OpenApiObject,
_schemaAdditionalProperties = Just $ AdditionalPropertiesSchema $ _namedSchemaSchema <$> itemsSchemaRef
}
ValueCodec ->
pure $