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 =