Ameliore design in income page and stat page

2 files changed, 30 insertions, 10 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 83d0467..b42cdcd 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -62,10 +62,14 @@ data Key =
   | Monthly
   | SingularMonthlyCount
   | PluralMonthlyCount
+  | Payment
+  | Payments
 
   -- Statistics
 
   | Statistics
+  | Overall
+  | ByMonths
 
   -- Income
 
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 =