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