Remove quotes around names in weekly report

1 files 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