From 1464f5da90429bdc2b38f73888f153c7dc184809 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 4 Jul 2023 13:21:05 +0200
Subject: [PATCH] :sparkles: Ensure that all emails are under 250chars

---
 common/src/app/common/schema.cljc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/common/src/app/common/schema.cljc b/common/src/app/common/schema.cljc
index 8a62947df..92ce756e7 100644
--- 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"