diff options
Diffstat (limited to 'src/server/Model/Message')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 1 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 5 |
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 = |