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 | |
| parent | d920dd95be096dcaa2fa2314d729fdff52631fd6 (diff) | |
| download | budget-ee3027b53aad38178f4945c459a94489f4997507.tar.gz budget-ee3027b53aad38178f4945c459a94489f4997507.tar.bz2 budget-ee3027b53aad38178f4945c459a94489f4997507.zip | |
Do not authorize negative incomes
Diffstat (limited to 'src')
| -rw-r--r-- | src/client/Model/View/LoggedIn/Account.elm | 2 | ||||
| -rw-r--r-- | src/server/Model/Message/Key.hs | 1 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 5 |
3 files changed, 7 insertions, 1 deletions
diff --git a/src/client/Model/View/LoggedIn/Account.elm b/src/client/Model/View/LoggedIn/Account.elm index ab37b81..2bb3ae7 100644 --- a/src/client/Model/View/LoggedIn/Account.elm +++ b/src/client/Model/View/LoggedIn/Account.elm @@ -64,4 +64,4 @@ validateIncome : String -> Translations -> Result String Int validateIncome amount translations = amount |> validateNonEmpty (getMessage "IncomeRequired" translations) - |> flip Result.andThen (validateNumber (getMessage "IncomeMustBeNonNullNumber" translations) ((/=) 0)) + |> flip Result.andThen (validateNumber (getMessage "IncomeMustBePositiveNumber" translations) (\number -> number > 0)) 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 = |