diff options
| author | Joris | 2016-01-02 20:31:25 +0100 |
|---|---|---|
| committer | Joris | 2016-01-02 20:31:25 +0100 |
| commit | 302a2e798f10e61c129753a2bd11634420c1f1a1 (patch) | |
| tree | aa53c2eb212d0742f63b3df1be88afb5da699769 /src/server/Model/Message/Translations.hs | |
| parent | bb316286b0859b5648c61f44c88399f4c1aad9cd (diff) | |
| download | budget-302a2e798f10e61c129753a2bd11634420c1f1a1.tar.gz budget-302a2e798f10e61c129753a2bd11634420c1f1a1.tar.bz2 budget-302a2e798f10e61c129753a2bd11634420c1f1a1.zip | |
Set a spinner for sign in
Diffstat (limited to 'src/server/Model/Message/Translations.hs')
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 05187aa..2212e1a 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -15,6 +15,13 @@ getNonFormattedMessage = m m :: Lang -> Key -> Text +-- Title + +m l SharedCost = + case l of + English -> "Shared Cost" + French -> "Partage des frais" + -- Mail m l NoReplyMail = @@ -24,11 +31,6 @@ m l NoReplyMail = -- Sign in -m l SharedCost = - case l of - English -> "Shared Cost" - French -> "Partage des frais" - m l SignIn = case l of English -> "Sign in" @@ -39,11 +41,16 @@ m l InvalidEmail = English -> "Your email is not valid." French -> "Votre courriel n'est pas valide." -m l Unauthorized = +m l UnauthorizedSignIn = case l of English -> "You are not authorized to sign in." French -> "Tu n'es pas autorisé à te connecter." +m l ErrorSignIn = + case l of + English -> "An error occured, please retry later." + French -> "Une erreur est survenue, veuillez réessayer ultérieurement." + -- Date m l January = |