@@ -91,7 +91,7 @@ toJsonSchema' = \case
9191 res <- toJsonSchema' sch
9292 pure $ execState (traverse_ arrayConstraint acs) $ emptySchema
9393 { _schemaType = pure $ TypeValidatorString D4.SchemaArray
94− , _schemaItems = pure $ ItemsArray [res] }
94+ , _schemaItems = pure $ ItemsObject res }
9595 DSchemaNull -> pure $ emptySchema
9696 { _schemaType = pure $ TypeValidatorString D4.SchemaNull }
9797 DSchemaOptional sch -> do