aboutsummaryrefslogtreecommitdiff
path: root/common/src
diff options
context:
space:
mode:
Diffstat (limited to 'common/src')
-rw-r--r--common/src/Common/Message/Translation.hs16
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