diff options
| author | Joris Guyonvarch | 2015-08-14 17:43:10 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-14 17:43:10 +0200 |
| commit | 965c0f57875e27fd09df2fc72487f4651addb79b (patch) | |
| tree | 3123597112e990fe06405557485e664d3a8da5f3 /src/client/Model/View/Payment/Add.elm | |
| parent | 006d54bf4ac4dd9e05d62d0007759f28740fd77a (diff) | |
| download | budget-965c0f57875e27fd09df2fc72487f4651addb79b.tar.gz budget-965c0f57875e27fd09df2fc72487f4651addb79b.tar.bz2 budget-965c0f57875e27fd09df2fc72487f4651addb79b.zip | |
Cost must not be negative
Diffstat (limited to 'src/client/Model/View/Payment/Add.elm')
| -rw-r--r-- | src/client/Model/View/Payment/Add.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/Model/View/Payment/Add.elm b/src/client/Model/View/Payment/Add.elm index 5428c3d..5ab7a40 100644 --- a/src/client/Model/View/Payment/Add.elm +++ b/src/client/Model/View/Payment/Add.elm @@ -35,4 +35,4 @@ validateCost : String -> Translations -> Result String Int validateCost cost translations = cost |> validateNonEmpty (getMessage "CostRequired" translations) - |> flip Result.andThen (validateNumber (getMessage "CostMustBeNumber" translations)) + |> flip Result.andThen (validateNumber (getMessage "CostMustBeNumber" translations) (\number -> number >= 0)) |