Show payment count and sum right after search

2 files changed, 23 insertions, 11 deletions

diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 4ef8663..27a93dd 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -64,10 +64,12 @@ data Key =
   | Payment
   | Payments
   | SearchText
+  | Worth
 
   -- Statistics
 
   | Statistics
+  | Balance
   | Overall
   | ByMonths
   | By
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index c7a2043..55ef97b 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -240,15 +240,20 @@ m l Payment =
     English -> "payment"
     French  -> "paiement"
 
+m l Payments =
+  case l of
+    English -> "payments"
+    French  -> "paiements"
+
 m l SearchText =
   case l of
     English -> "Search"
     French  -> "Recherche"
 
-m l Payments =
+m l Worth =
   case l of
-    English -> "payments"
-    French  -> "paiements"
+    English -> "{1} worth {2}"
+    French  -> "{1} valant {2}"
 
 -- Statistics
 
@@ -257,6 +262,11 @@ m l Statistics =
     English -> "Statistics"
     French  -> "Statistiques"
 
+m l Balance =
+  case l of
+    English -> "Balance"
+    French  -> "Équilibre"
+
 m l Overall =
   case l of
     English -> "Overall"
@@ -274,15 +284,15 @@ m l By =
 
 m l Mean =
   case l of
-    English -> "Mean: {0}"
-    French  -> "En moyenne : {0}"
+    English -> "Mean: {1}"
+    French  -> "En moyenne : {1}"
 
 -- Income
 
 m l CumulativeIncomesSince =
   case l of
-    English -> "Cumulative incomes since {0}"
-    French  -> "Revenus nets cumulés depuis le {0}"
+    English -> "Cumulative incomes since {1}"
+    French  -> "Revenus nets cumulés depuis le {1}"
 
 m l Income =
   case l of
@@ -338,13 +348,13 @@ m l InvalidInt =
 
 m l SmallerIntThan =
   case l of
-    English -> "Integer bigger than {0} required"
-    French  -> "Entier supérieur à {0} requis"
+    English -> "Integer bigger than {1} required"
+    French  -> "Entier supérieur à {1} requis"
 
 m l GreaterIntThan =
   case l of
-    English -> "Integer smaller than {0} required"
-    French  -> "Entier inférieur à {0} requis"
+    English -> "Integer smaller than {1} required"
+    French  -> "Entier inférieur à {1} requis"
 
 -- Http error