Improve unknown form error

Add :type key and actual value of erroneous form
exoscale · Oct 1, 2019 · c829a04 · c829a04
1 parent 08ca0e0
commit c829a04
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/seql/helpers.clj b/src/seql/helpers.clj
@@ -11,7 +11,9 @@
   (doseq [{:keys [type context] :as form} (flatten forms)]
     (when (or (nil? type) (nil? context))
       (throw
-       (ex-info "Unknown form encountered" {})))
+       (ex-info "Unknown form encountered"
+                {:type ::unknown-form
+                 :form form})))
     (when-not (= context expected)
       (throw
        (ex-info (format "The %s form should be used inside %s definitions"