From c95d0e46b223710c5263829d3d4d9d16408557a4 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Thu, 21 Nov 2024 07:03:38 +0100
Subject: [PATCH] Clear warning for migrated accounts: add an email address.

---
 src/App/Container.purs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index f18d017..60911fa 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -282,6 +282,7 @@ render state
     , render_nav
     , reconnection_bar
     , render_notifications
+    , migration_warning_on_email_address
     , case state.current_page of
         Home           -> render_home
         Authentication -> render_auth_form
@@ -309,6 +310,22 @@ render state
     paypal_btn :: forall w i. HH.HTML w i
     paypal_btn = HH.div [ HP.ref ref_paypal_div ] []
 
+    migration_warning_on_email_address :: forall w. HH.HTML w Action
+    migration_warning_on_email_address =
+      case state.user_data of
+        Just (Tuple Nothing _) ->
+          HH.div [HP.classes [C.notification, C.is_warning]]
+            [ Bulma.p """
+               ⚠️​  MIGRATION (FR): veuillez indiquer une adresse email pour votre compte.
+               Tout compte sans adresse email sera supprimé sous 6 mois.
+              """
+            , Bulma.p """
+               ⚠️​  MIGRATION (EN): please associate an email address to your account.
+               Accounts without a validated email address will be discarded within 6 months.
+              """
+            ]
+        _ -> HH.text ""
+
     legal_notice_btn = Bulma.btn_ [] "Legal notice" (Routing LegalNotice)
     reconnection_bar :: forall w. HH.HTML w Action
     reconnection_bar =