aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message/Key.hs1
-rw-r--r--src/server/Model/Message/Translations.hs35
2 files changed, 21 insertions, 15 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index b5ea45b..d4d31f3 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -50,5 +50,6 @@ data Key =
| Add
| PaymentNotDeleted
+ | MoneySymbol
deriving (Enum, Bounded, Show)
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index c0f9d3c..93d264f 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -104,79 +104,79 @@ m l January =
m l February =
case l of
English -> "February"
- French -> "Février"
+ French -> "Février"
m l March =
case l of
English -> "March"
- French -> "Mars"
+ French -> "Mars"
m l April =
case l of
English -> "April"
- French -> "Avril"
+ French -> "Avril"
m l May =
case l of
English -> "May"
- French -> "Mai"
+ French -> "Mai"
m l June =
case l of
English -> "June"
- French -> "Juin"
+ French -> "Juin"
m l July =
case l of
English -> "July"
- French -> "Juillet"
+ French -> "Juillet"
m l August =
case l of
English -> "August"
- French -> "Août"
+ French -> "Août"
m l September =
case l of
English -> "September"
- French -> "Septembre"
+ French -> "Septembre"
m l October =
case l of
English -> "October"
- French -> "Octoble"
+ French -> "Octoble"
m l November =
case l of
English -> "November"
- French -> "Novembre"
+ French -> "Novembre"
m l December =
case l of
English -> "December"
- French -> "Décembre"
+ French -> "Décembre"
m l Date =
case l of
English -> "{2} {1}, {3}"
- French -> "{1} {2} {3}"
+ French -> "{1} {2} {3}"
-- Validation
m l CategoryRequired =
case l of
English -> "Type a category."
- French -> "Entre une catégorie."
+ French -> "Entre une catégorie."
m l CostRequired =
case l of
English -> "Type a cost."
- French -> "Entre un coût."
+ French -> "Entre un coût."
m l CostMustBeNumber =
case l of
English -> "The cost must be a positive natural number."
- French -> "Le coût doit être un entier positif."
+ French -> "Le coût doit être un entier positif."
-- Payments
@@ -189,3 +189,8 @@ m l PaymentNotDeleted =
case l of
English -> "The payment could not have been deleted."
French -> "Le paiement n'a pas pu être supprimé."
+
+m l MoneySymbol =
+ case l of
+ English -> "$"
+ French -> "€"