fix(config): gracefully handle empty schema object (#21)

crs48 · web-flow · commit b33cb82d68e4 · 2020-11-23T17:08:56.000-05:00
diff --git a/src/homebase/js.cljs b/src/homebase/js.cljs
@@ -85,9 +85,11 @@
 (defn js->schema [schema]
   (let [schema (js->clj schema)]
     (reduce (fn js->schema-reducer [acc [nms nm k :as p]]
-              (let [v (get str->schema-key (get-in schema p))
-                    k (get str->schema-key k)]
-                (assoc-in acc [(js->key nms nm) k] v)))
+              (if-not (and nms nm k)
+                acc
+                (let [v (get str->schema-key (get-in schema p))
+                      k (get str->schema-key k)]
+                  (assoc-in acc [(js->key nms nm) k] v))))
             {} (u/paths schema))))
 
 (comment
