oracle-samples#264:Provide better exception when unable to resolve cl…

…ass while deserializing rulebase
EthanEChristian · Jul 19, 2022 · 6ab490b · 6ab490b
1 parent e86dcd4
commit 6ab490b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/main/clojure/clara/rules/durability/fressian.clj b/src/main/clojure/clara/rules/durability/fressian.clj
@@ -132,7 +132,11 @@
   ([^Reader rdr]
    (read-record rdr nil))
   ([^Reader rdr add-fn]
-   (let [builder (-> (.readObject rdr) resolve deref)
+   (let [try-resolve #(if-let [clazz (resolve %)]
+                        clazz
+                        (throw (ex-info (str "Unable to resolve record symbol: '" % "'")
+                                        {:record-class %})))
+         builder (-> (.readObject rdr) try-resolve deref)
          build-map (.readObject rdr)
          m (read-meta rdr)]
      (cond-> (builder build-map)