From ac4f8469ce32ad3d381c3cd311925f6cba4d5dfc Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 25 Mar 2024 00:12:49 +0100
Subject: [PATCH] Minor text changes.

---
 src/App/Container.purs         | 2 +-
 src/App/Page/DomainList.purs   | 4 ++--
 src/App/Page/Registration.purs | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index 4631e32..281c777 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -506,7 +506,7 @@ handleAction = case _ of
             case current_page of
               Registration -> do
                 let successlog = """
-                    You are now registered, copy the token we sent you by email to finish your registration.
+                    You are now registered. Please verify your email address with the token we sent you.
                 """
                 handleAction $ Log $ SuccessLog successlog
                 handleAction $ AddNotif $ GoodNotification successlog
diff --git a/src/App/Page/DomainList.purs b/src/App/Page/DomainList.purs
index 23a08bf..49d71e8 100644
--- a/src/App/Page/DomainList.purs
+++ b/src/App/Page/DomainList.purs
@@ -174,9 +174,9 @@ render { accepted_domains, my_domains, newDomainForm, wsUp, active_modal }
     modal_delete_button domain = Bulma.alert_btn "Delete the domain" (RemoveDomain domain)
     modal_cancel_button = Bulma.cancel_button CancelModal
     warning_message domain
-      = HH.p [] [ HH.text $ "You are about to delete your domain '"
+      = HH.p [] [ HH.text $ "You are about to delete your domain \""
                             <> domain
-                            <> "'. Are you sure you want to do this? This is "
+                            <> "\". Are you sure you want to do this? This is "
                 , HH.strong_ [ HH.text "irreversible" ]
                 , HH.text "."
                 ]
diff --git a/src/App/Page/Registration.purs b/src/App/Page/Registration.purs
index dbc913d..fbe6233 100644
--- a/src/App/Page/Registration.purs
+++ b/src/App/Page/Registration.purs
@@ -99,7 +99,7 @@ render { wsUp, registrationForm }
 
   where
     b e = Bulma.column_ [ Bulma.box e ]
-    registration_form = [ Bulma.h3 "Register!", render_register_form ]
+    registration_form = [ Bulma.h3 "Register", render_register_form ]
 
     should_be_disabled = (if wsUp then (HP.enabled true) else (HP.disabled true))