From 17d6a05756479388c91bc2e50f721fcea8a82d38 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 3 Jan 2018 17:36:23 +0100
Subject: Remove quotes around names in weekly report

---
 common/src/Common/Message/Translation.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/common/src/Common/Message/Translation.hs b/common/src/Common/Message/Translation.hs
index 13ced15..5ea12ad 100644
--- a/common/src/Common/Message/Translation.hs
+++ b/common/src/Common/Message/Translation.hs
@@ -641,23 +641,23 @@ m l (WeeklyReport_IncomeEdited count) =
 
 m l (WeeklyReport_PayedFor name amount for at) =
   case l of
-    English -> T.concat [ T.pack . show $ name, " payed ", amount, " for “", for, "” at ", at ]
-    French  -> T.concat [ T.pack . show $ name, " a payé ", amount, " concernant « ", for, " » le ", at ]
+    English -> T.concat [ name, " payed ", amount, " for “", for, "” at ", at ]
+    French  -> T.concat [ name, " a payé ", amount, " concernant « ", for, " » le ", at ]
 
 m l (WeeklyReport_PayedForNot name amount for at) =
   case l of
-    English -> T.concat [ T.pack . show $ name, " didn’t pay ", amount, " for “", for, "” at ", at ]
-    French  -> T.concat [ T.pack . show $ name, " n’a pas payé ", amount, " concernant « ", for, " » le ", at ]
+    English -> T.concat [ name, " didn’t pay ", amount, " for “", for, "” at ", at ]
+    French  -> T.concat [ name, " n’a pas payé ", amount, " concernant « ", for, " » le ", at ]
 
 m l (WeeklyReport_PayedFrom name amount for) =
   case l of
-    English -> T.concat [ T.pack . show $ name, " is payed ", amount, " of net monthly income from ", for ]
-    French  -> T.concat [ T.pack . show $ name, " est payé ", amount, " net par mois à partir du ", for ]
+    English -> T.concat [ name, " is payed ", amount, " of net monthly income from ", for ]
+    French  -> T.concat [ name, " est payé ", amount, " net par mois à partir du ", for ]
 
 m l (WeeklyReport_PayedFromNot name amount for) =
   case l of
-    English -> T.concat [ T.pack . show $ name, " isn’t payed ", amount, " of net monthly income from ", for ]
-    French  -> T.concat [ T.pack . show $ name, " n’est pas payé ", amount, " net par mois à partir du ", for ]
+    English -> T.concat [ name, " isn’t payed ", amount, " of net monthly income from ", for ]
+    French  -> T.concat [ name, " n’est pas payé ", amount, " net par mois à partir du ", for ]
 
 m l (WeeklyReport_PaymentsCreated count) =
   case l of
-- 
cgit v1.2.3