diff --git a/src/App/Container.purs b/src/App/Container.purs index 5a37641..c9e6f32 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -529,7 +529,7 @@ handleAction = case _ of case current_page of Registration -> do let successlog = """ - You are now registered. Please verify your email address with the token we sent you. + You are now registered. Please verify your email address with the token we have sent you. """ handleAction $ Log $ SuccessLog successlog handleAction $ AddNotif $ GoodNotification successlog diff --git a/src/App/Page/Authentication.purs b/src/App/Page/Authentication.purs index 168d515..dd7b103 100644 --- a/src/App/Page/Authentication.purs +++ b/src/App/Page/Authentication.purs @@ -293,10 +293,10 @@ handleAction = case _ of H.raise $ UserLogin login case login, pass of "" , _ -> - H.raise $ Log $ UnableToSend "Write your login!" + H.raise $ Log $ UnableToSend "Please, write your login!" _ , "" -> - H.raise $ Log $ UnableToSend "Write your password!" + H.raise $ Log $ UnableToSend "Please, write your password!" _, _ -> do case L.login login, P.password_on_authentication_page pass of @@ -314,7 +314,7 @@ handleAction = case _ of email = passwordRecoveryForm.email case login, email of - "", "" -> H.raise $ Log $ UnableToSend "Write your login or your email!" + "", "" -> H.raise $ Log $ UnableToSend "Please, write your login or your email!" _, _ -> do H.raise $ Log $ SystemLog "password recovery" if email == "" diff --git a/src/App/Page/MailValidation.purs b/src/App/Page/MailValidation.purs index 5a6a863..7767ccb 100644 --- a/src/App/Page/MailValidation.purs +++ b/src/App/Page/MailValidation.purs @@ -116,10 +116,10 @@ handleAction = case _ of case login, token of "", _ -> - H.raise $ Log $ UnableToSend "Write your login!" + H.raise $ Log $ UnableToSend "Please, write your login!" _, "" -> - H.raise $ Log $ UnableToSend "Write your token!" + H.raise $ Log $ UnableToSend "Please, write your token!" _, _ -> do case L.login login, T.token token of diff --git a/src/App/Page/Registration.purs b/src/App/Page/Registration.purs index 50e706f..a26370d 100644 --- a/src/App/Page/Registration.purs +++ b/src/App/Page/Registration.purs @@ -158,13 +158,13 @@ handleAction = case _ of case login, email, pass of "", _, _ -> - H.raise $ Log $ UnableToSend "Write your login!" + H.raise $ Log $ UnableToSend "Please, write your login!" _, "", _ -> - H.raise $ Log $ UnableToSend "Write your email!" + H.raise $ Log $ UnableToSend "Please, write your email!" _, _, "" -> - H.raise $ Log $ UnableToSend "Write your password!" + H.raise $ Log $ UnableToSend "Please, write your password!" _, _, _ -> do case L.login login, E.email email, P.password pass of diff --git a/src/App/Page/Setup.purs b/src/App/Page/Setup.purs index e8e95af..a694a0b 100644 --- a/src/App/Page/Setup.purs +++ b/src/App/Page/Setup.purs @@ -169,7 +169,7 @@ handleAction = case _ of { new_email_address } <- H.get case new_email_address of - "" -> H.raise $ Log $ UnableToSend "Write your new email address!" + "" -> H.raise $ Log $ UnableToSend "Please, write your new email address!" email_address -> do case E.email email_address of Left errors -> H.raise $ Log $ UnableToSend $ A.fold $ map show_error_email errors @@ -180,8 +180,8 @@ handleAction = case _ of { newPasswordForm } <- H.get case newPasswordForm.password, newPasswordForm.confirmation of - "" , _ -> H.raise $ Log $ UnableToSend "Write your password!" - _ , "" -> H.raise $ Log $ UnableToSend "Confirm your password!" + "" , _ -> H.raise $ Log $ UnableToSend "Please, write your password!" + _ , "" -> H.raise $ Log $ UnableToSend "Please, confirm your password!" pass, confirmation -> do if pass == confirmation then case P.password pass of