✨ Ensure that all emails are under 250chars

2026-05-03 15:18:59 +00:00 · 2023-07-04 13:21:05 +02:00 · 2023-07-04 13:21:05 +02:00 · 1464f5da90
commit 1464f5da90
parent 7b0d3bdcab
1 changed files with 3 additions and 1 deletions
--- a/common/src/app/common/schema.cljc
+++ b/common/src/app/common/schema.cljc
@ -282,7 +282,9 @@
 (def! ::email
  {:type ::email
   :pred (fn [s]
-           (and (string? s) (re-seq email-re s)))
+           (and (string? s)
+                (< (count s) 250)
+                (re-seq email-re s)))
   :type-properties
   {:title "email"
    :description "string with valid email address"