From aa0539665360eb0987c292914334680c4b5ae47b Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 11 Nov 2024 10:14:26 +0100
Subject: [PATCH] Email addresses must be validated within 2 days.

---
 src/App/Page/MailValidation.purs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/App/Page/MailValidation.purs b/src/App/Page/MailValidation.purs
index f6af80f..7d2427d 100644
--- a/src/App/Page/MailValidation.purs
+++ b/src/App/Page/MailValidation.purs
@@ -86,7 +86,13 @@ render { mailValidationForm }
 
   where
     b e = Bulma.column_ [ Bulma.box e ]
-    mail_validation_form = [ Bulma.h3 "Verify your account", render_register_form ]
+    mail_validation_form
+      = [ Bulma.h3 "Verify your account"
+        , Bulma.div_content [] [Bulma.explanation [Bulma.p """
+        Email addresses must be validated within 2 days.
+        """]]
+        , render_register_form
+        ]
 
     render_register_form = HH.form
       [ HE.onSubmit ValidateInputs ]