diff options
| author | Joris Guyonvarch | 2015-08-12 21:19:23 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-12 21:19:23 +0200 |
| commit | 999e05703f028ff21232b501f4af8d1b246ea3de (patch) | |
| tree | 767c33f46ac13e66895aa0a9fb75a7995e2d4aeb /src | |
| parent | 4a159677c213e0440266b1e35f8d00e93df9f334 (diff) | |
| download | budget-999e05703f028ff21232b501f4af8d1b246ea3de.tar.gz budget-999e05703f028ff21232b501f4af8d1b246ea3de.tar.bz2 budget-999e05703f028ff21232b501f4af8d1b246ea3de.zip | |
Fixing french translations
Diffstat (limited to 'src')
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 4 | ||||
| -rw-r--r-- | src/server/SendMail.hs | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 5a626ed..7bc821e 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -42,12 +42,12 @@ m l SendEmailFail = m l Unauthorized = case l of English -> "You are not authorized to sign in." - French -> "Tu n'es pas authorisé à te connecter." + French -> "Tu n'es pas autorisé à te connecter." m l EnterValidEmail = case l of English -> "Please enter a valid email address." - French -> "Entre un email valide." + French -> "Ton courriel n'est pas valide." m l SignInUsed = case l of diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs index 09d3d59..e57f345 100644 --- a/src/server/SendMail.hs +++ b/src/server/SendMail.hs @@ -6,7 +6,6 @@ module SendMail import Data.Text (Text) import qualified Data.Text as T -import qualified Data.Text.Lazy as LT import Data.Either (isLeft) import Control.Exception (SomeException, try) |