company 1099 works

src/clj/auto_ap/ssr/utils.clj

@@ -243,7 +243,8 @@
 (defn ref->enum-schema [n]
   (into [:enum {:decode/string #(if (keyword? %)
                                   %
-                                  (keyword n %)
+                                  (when (not-empty %)
+                                    (keyword n %))
                                   )}]
         (for [{:db/keys [ident]} (all-schema)
               :when              (= n (namespace ident))]
@@ -266,20 +267,6 @@
           {:value (name ident) :content (str/replace (str/capitalize (name ident)) "-" " ")})))
 
 
-
-
-(defn wrap-form-4xx [handler]
-  (fn [request]
-    (try+
-      (handler request)
-
-
-      (catch [:type :validation] e
-        (alog/warn ::form-4xx :error e)
-        (html-response [:span.error-content.text-red-500 (:message &throw-context)]
-                       :status 400)))))
-
-
 (defn wrap-form-4xx-2 [handler form-handler]
   (fn [request]
     (try+