From 999e05703f028ff21232b501f4af8d1b246ea3de Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Wed, 12 Aug 2015 21:19:23 +0200
Subject: Fixing french translations
---
src/server/Model/Message/Translations.hs | 4 ++--
src/server/SendMail.hs | 1 -
2 files changed, 2 insertions(+), 3 deletions(-)
(limited to 'src')
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)
--
cgit v1.2.3