diff options
| author | Joris | 2015-10-04 21:15:15 +0200 |
|---|---|---|
| committer | Joris | 2015-10-04 21:15:15 +0200 |
| commit | ee3027b53aad38178f4945c459a94489f4997507 (patch) | |
| tree | 0bd93793ac2ea22bdfbe9398a08685246391cce9 /src/server/Model/Message | |
| parent | d920dd95be096dcaa2fa2314d729fdff52631fd6 (diff) | |
Do not authorize negative incomes
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 = |