Fixing french translations

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)