Makes print checks basically work.

src/clj/auto_ap/graphql/utils.clj

@@ -3,7 +3,6 @@
             [auto-ap.logging :as alog]
             [auto-ap.time :as atime]
             [buddy.auth :refer [throw-unauthorized]]
-            [cheshire.core :as cheshire]
             [clj-time.coerce :as coerce]
             [clojure.set :as set]
             [clojure.string :as str]
@@ -11,8 +10,8 @@
             [com.brunobonacci.mulog :as mu]
             [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
             [datomic.api :as dc]
-            [hiccup2.core :as hiccup]
-            [iol-ion.query :refer [entid]]))
+            [iol-ion.query :refer [entid]]
+            [slingshot.slingshot :refer [throw+]]))
 
 
 (defn snake->kebab [s]
@@ -196,12 +195,22 @@
       user-client-ids)))
 
 (defn exception->notification [f]
+  (try
+    (f)
+    (catch Throwable e
+      (throw (ex-info (.getMessage e)
+                      {:type :notification}
+                      e)))))
+
+(defn exception->4xx [f]
   (try 
     (f)
     (catch Throwable e
-     (throw (ex-info (.getMessage e)
-                     {:type :notification}
-                     e)))))
+(throw+ (ex-info (.getMessage e) {:type                    :form-validation
+                                  :form-validation-errors [(.getMessage e)]}))
+      #_(throw (ex-info (.getMessage e)
+                      {:type :notification}
+                      e)))))
 
 (defn notify-if-locked [client-id date]
   (try