From a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Sep 2015 23:57:16 +0200
Subject: Adding UI income read-only

---
 src/server/Model/Message/Translations.hs | 72 +++++++++++++++++++++-----------
 1 file changed, 48 insertions(+), 24 deletions(-)

(limited to 'src/server/Model/Message/Translations.hs')

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 79d177f..fce979a 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -69,25 +69,35 @@ m l SignInMailTitle =
     English -> T.concat ["Sign in to ", m l SharedCost]
     French  -> T.concat ["Connexion à ", m l SharedCost]
 
-m l HiMail =
-  case l of
-    English -> "Hi {1},"
-    French  -> "Salut {1},"
-
-m l SignInLinkMail =
-  case l of
-    English ->
-      T.concat
-        [ "Click to the following link in order to sign in to Shared Cost:"
-        , m l SharedCost
-        , ":"
-        ]
-    French  ->
-      T.concat
-        [ "Clique sur le lien suivant pour te connecter à "
-        , m l SharedCost
-        , ":"
-        ]
+m l SignInMail =
+  T.intercalate
+    "\n"
+    ( case l of
+        English ->
+          [ "Hi {1},"
+          , ""
+          , T.concat
+              [ "Click to the following link in order to sign in to Shared Cost:"
+              , m l SharedCost
+              , ":"
+              ]
+          , "{2}"
+          , ""
+          , "See you soon!"
+          ]
+        French  ->
+          [ "Salut {1},"
+          , ""
+          , T.concat
+              [ "Clique sur le lien suivant pour te connecter à "
+              , m l SharedCost
+              , ":"
+              ]
+          , "{2}"
+          , ""
+          , "À très vite !"
+          ]
+    )
 
 m l SignInEmailSent =
   case l of
@@ -210,20 +220,34 @@ m l Monthly =
     English -> "Monthly"
     French  -> "Mensuel"
 
+m l NoMonthlyPayment =
+  case l of
+    English -> "No monthly payment"
+    French  -> "Aucun paiement mensuel"
+
 m l SingularMonthlyCount =
   T.concat
     [ case l of
         English -> "{1} monthly payment of {2} "
         French  -> "{1} paiement mensuel de {2} "
     , m l MoneySymbol
-    , "."
     ]
 
 m l PluralMonthlyCount =
   T.concat
     [ case l of
-        English -> "{1} monthly payments totalling {2} "
-        French  -> "{1} paiements mensuels comptabilisant {2} "
-    , m l MoneySymbol
-    , "."
+        English -> "{1} monthly payments totalling {2}"
+        French  -> "{1} paiements mensuels comptabilisant {2}"
     ]
+
+m l Income =
+  T.concat
+    [ case l of
+        English -> "You have a monthly net income of {1}"
+        French  -> "Votre revenu mensuel net est de {1}"
+    ]
+
+m l NoIncome =
+  case l of
+    English -> "Income not given"
+    French  -> "Revenu non renseigné"
-- 
cgit v1.2.3