aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model/Message
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model/Message')
-rw-r--r--src/server/Model/Message/Key.hs6
-rw-r--r--src/server/Model/Message/Translations.hs32
2 files changed, 38 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 9f16f6b..bd2b567 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -45,6 +45,8 @@ data Key =
| CategoryRequired
| CostRequired
| CostMustBeNonNullNumber
+ | IncomeRequired
+ | IncomeMustBeNonNullNumber
-- Payments
@@ -60,5 +62,9 @@ data Key =
| Income
| NoIncome
+ | Edit
+ | Validate
+ | Undo
+ | NewIncome
deriving (Enum, Bounded, Show)
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 8c27a2d..8c6a233 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -193,6 +193,16 @@ m l CostMustBeNonNullNumber =
English -> "The cost must be a non-null integer."
French -> "Le coût doit être un entier non nul."
+m l IncomeRequired =
+ case l of
+ English -> "Type an income."
+ French -> "Entre un revenu."
+
+m l IncomeMustBeNonNullNumber =
+ case l of
+ English -> "The income must be a non-null integer."
+ French -> "Le revenu doit être un entier non nul."
+
-- Payments
m l Add =
@@ -235,6 +245,8 @@ m l PluralMonthlyCount =
French -> "{1} paiements mensuels comptabilisant {2}"
]
+-- Income
+
m l Income =
T.concat
[ case l of
@@ -246,3 +258,23 @@ m l NoIncome =
case l of
English -> "Income not given"
French -> "Revenu non renseigné"
+
+m l Edit =
+ case l of
+ English -> "Edit"
+ French -> "Éditer"
+
+m l Validate =
+ case l of
+ English -> "Validate"
+ French -> "Valider"
+
+m l Undo =
+ case l of
+ English -> "Undo"
+ French -> "Annuler"
+
+m l NewIncome =
+ case l of
+ English -> "New income"
+ French -> "Nouveau revenu"