From 2e75a5ac41afd4d6458ad230bd26fd9e73c7bdb9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 19:36:07 +0200
Subject: Shortening monthly count and sum message

---
 src/server/Model/Message/Translations.hs | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 0a1226a..a3603b8 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -211,15 +211,19 @@ m l Monthly =
     French  -> "Mensuel"
 
 m l SingularMonthlyCount =
-  case l of
-    English -> "You have {1} monthly payment."
-    French  -> "Vous avez {1} paiement mensuel."
+  T.concat
+    [ case l of
+        English -> "{1} monthly payment of {2} "
+        French  -> "{1} paiement mensuel de {2} "
+    , m l MoneySymbol
+    , "."
+    ]
 
 m l PluralMonthlyCount =
   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} "
+        English -> "{1} monthly payments totalling {2} "
+        French  -> "{1} paiements mensuels comptabilisant {2} "
     , m l MoneySymbol
     , "."
     ]
-- 
cgit v1.2.3