Ameliore design in income page and stat page

1 files changed, 26 insertions, 10 deletions

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 =