@@ -685,6 +685,8 @@ withFieldSchema opts _ isRequiredField schema = do
685 then schema
685 then schema
686 & type_ .~ SwaggerArray
686 & type_ .~ SwaggerArray
687 & items %~ appendItem ref
687 & items %~ appendItem ref
688+ & maxItems %~ Just . maybe 1 (+1) -- increment maxItems
689+ & minItems %~ Just . maybe 1 (+1) -- increment minItems
688 else schema
690 else schema
689 & type_ .~ SwaggerObject
691 & type_ .~ SwaggerObject
690 & properties . at fname ?~ ref
692 & properties . at fname ?~ ref