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.hs1
-rw-r--r--src/server/Model/Message/Translations.hs5
2 files changed, 6 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index bd2b567..c4ff738 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -47,6 +47,7 @@ data Key =
| CostMustBeNonNullNumber
| IncomeRequired
| IncomeMustBeNonNullNumber
+ | IncomeMustBePositiveNumber
-- Payments
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index f594833..f34cbd2 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -203,6 +203,11 @@ m l IncomeMustBeNonNullNumber =
English -> "The income must be a non-null integer."
French -> "Le revenu doit ĂȘtre un entier non nul."
+m l IncomeMustBePositiveNumber =
+ case l of
+ English -> "The income must be a positive integer."
+ French -> "Le revenu doit ĂȘtre un entier positif."
+
-- Payments
m l Add =