Minor text changes.

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

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 "."
                 ]

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))