Add a statistics empty page

2 files changed, 18 insertions, 7 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 9d1c053..83d0467 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -63,11 +63,15 @@ data Key =
   | SingularMonthlyCount
   | PluralMonthlyCount
 
+  -- Statistics
+
+  | Statistics
+
   -- Income
 
   | AddIncome
-  | Incomes
   | Income
+  | MonthlyNetIncomes
   | IncomeNotDeleted
 
   -- Http error
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 9db4a76..8c1ba08 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -244,6 +244,13 @@ m l PluralMonthlyCount =
         French  -> "{1} paiements mensuels comptabilisant {2}"
     ]
 
+-- Statistics
+
+m l Statistics =
+  case l of
+    English -> "Statistics"
+    French  -> "Statistiques"
+
 -- Income
 
 m l AddIncome =
@@ -251,15 +258,15 @@ m l AddIncome =
     English -> "Add a monthly net income"
     French  -> "Ajouter un revenu mensuel net"
 
-m l Incomes =
+m l Income =
   case l of
-    English -> "Monthly net incomes"
-    French  -> "Revenus mensuels nets"
+    English -> "Income"
+    French  -> "Revenu"
 
-m l Income =
+m l MonthlyNetIncomes =
   case l of
-    English -> "Monthly net income: {1}"
-    French  -> "Revenu mensuel net : {1}"
+    English -> "Monthly net incomes"
+    French  -> "Revenus mensuels nets"
 
 m l IncomeNotDeleted =
   case l of