Showing the total amount of monthly payments

1 files changed, 7 insertions, 3 deletions

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 501f00f..0a1226a 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -216,6 +216,10 @@ m l SingularMonthlyCount =
     French  -> "Vous avez {1} paiement mensuel."
 
 m l PluralMonthlyCount =
-  case l of
-    English -> "You have {1} monthly payments."
-    French  -> "Vous avez {1} paiements mensuels."
+  T.concat
+    [ case l of
+        English -> "You have {1} monthly payments with a total of {2} "
+        French  -> "Vous avez {1} paiements mensuels d'une valeur totale de {2} "
+    , m l MoneySymbol
+    , "."
+    ]