Prevents bad bank account

src/clj/auto_ap/ssr/utils.clj

@@ -163,6 +163,15 @@
                                                  x
                                                  [x]))})
     (into [:map] keys)]))
+(defn many-entity-custom [params schema]
+  (mc/schema
+   [:vector (merge params {:decode/json      map->db-id-decoder
+                           :decode/arbitrary (fn [x]
+                                               (if (sequential? x)
+                                                 x
+                                                 [x]))})
+    schema]))
+
 
 (defn str->keyword [s]
   (if (string? s)