From fe50c4042848681833d15fab27466d1d2d4bda45 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Apr 2016 23:52:13 +0200
Subject: Ameliore design in income page and stat page

---
 src/server/Model/Message/Translations.hs | 36 +++++++++++++++++++++++---------
 1 file changed, 26 insertions(+), 10 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 8c1ba08..1d3fbe6 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -231,18 +231,24 @@ m l Monthly =
     French  -> "Mensuel"
 
 m l SingularMonthlyCount =
-  T.concat
-    [ case l of
-        English -> "{1} monthly payment of {2}"
-        French  -> "{1} paiement mensuel de {2}"
-    ]
+  case l of
+    English -> "{1} monthly payment of {2}"
+    French  -> "{1} paiement mensuel de {2}"
 
 m l PluralMonthlyCount =
-  T.concat
-    [ case l of
-        English -> "{1} monthly payments totalling {2}"
-        French  -> "{1} paiements mensuels comptabilisant {2}"
-    ]
+  case l of
+    English -> "{1} monthly payments totalling {2}"
+    French  -> "{1} paiements mensuels comptabilisant {2}"
+
+m l Payment =
+  case l of
+    English -> "payment"
+    French  -> "paiement"
+
+m l Payments =
+  case l of
+    English -> "payments"
+    French  -> "paiements"
 
 -- Statistics
 
@@ -251,6 +257,16 @@ m l Statistics =
     English -> "Statistics"
     French  -> "Statistiques"
 
+m l Overall =
+  case l of
+    English -> "Overall"
+    French  -> "Global"
+
+m l ByMonths =
+  case l of
+    English -> "By months"
+    French  -> "Par mois"
+
 -- Income
 
 m l AddIncome =
-- 
cgit v1.2.3