v7.2.0 - Support for object literals

Author: DZakh

__tests__/JSONSchema_test.res

@@ -334,6 +334,28 @@ test("Schema of String Literal schema", t => {
  )
 })
 
+test("Schema of Object Literal schema", t => {
+ let schema = S.literal({"received": true})
+
+ t->Assert.deepEqual(
+ JSONSchema.make(schema),
+ Ok(
+ %raw(`{
+ "$schema": "http://json-schema.org/draft-07/schema#",
+ "type": "object",
+ "additionalProperties": false,
+ "properties": {
+ "received": {
+ "type": "boolean",
+ "const": true
+ }
+ },
+ "required": ["received"]
+ }`),
+ ),
+ )
+})
+
 test("Schema of Int Literal schema", t => {
  let schema = S.literal(123)
 

package-lock.json

@@ -1,6 +1,6 @@
 {
  "name": "rescript-json-schema",
- "version": "7.1.0",
+ "version": "7.2.0",
  "description": "📄 Typesafe JSON Schema for ReScript",
  "keywords": [
  "rescript",

package.json

@@ -270,11 +270,24 @@ let rec fromRescriptSchema:
  jsonSchema.const = Some(Js.Json.string(value))
  }
  | S.Literal(Null(_)) => jsonSchema.type_ = Some(Arrayable.single(#null))
+ | S.Literal(Dict({value})) => {
+ let properties = Js.Dict.empty()
+ let required = []
+ value
+ ->Js.Dict.entries
+ ->Js.Array2.forEach(((key, value)) => {
+ required->Js.Array2.push(key)->ignore
+ properties->Js.Dict.set(key, Definition.schema(fromRescriptSchema(S.literal(value))))
+ })
+ jsonSchema.type_ = Some(Arrayable.single(#object))
+ jsonSchema.properties = Some(properties)
+ jsonSchema.required = Some(required)
+ jsonSchema.additionalProperties = Some(Definition.boolean(false))
+ }
  | S.Literal(Undefined(_))
  | S.Literal(BigInt(_))
  | S.Literal(Function(_))
  | S.Literal(Array(_))
- | S.Literal(Dict(_))
  | S.Literal(Symbol(_))
  | S.Literal(Object(_))
  | S.Literal(NaN(_))