handle more than one property

rescript-lang · Jun 8, 2024 · 1c63d87 · 1c63d87
1 parent 0a2cd88
commit 1c63d87
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/src/bindings/Babel.res b/src/bindings/Babel.res
@@ -59,15 +59,17 @@ module PlaygroundValidator = {
             switch (firstDeclaration.id, firstDeclaration.init) {
             | (Identifier({name}), Some(init)) if name === "App" =>
               switch init->Null.toOption {
-              | Some(ObjectExpression({
-                  properties: [
-                    ObjectProperty({
+              | Some(ObjectExpression({properties})) =>
+                let foundEntryPoint = properties->Array.find(property => {
+                  switch property {
+                  | ObjectProperty({
                       key: Identifier({name: "make"}),
                       value: Identifier({name: "Playground$App"}),
-                    }),
-                  ],
-                })) =>
-                entryPoint.contents = true
+                    }) => true
+                  | _ => false
+                  }
+                })
+                entryPoint.contents = Option.isSome(foundEntryPoint)
               | _ => ()
               }
             | _ => ()