aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model
diff options
context:
space:
mode:
authorJoris2015-09-09 21:35:29 +0200
committerJoris2015-09-09 21:35:29 +0200
commit984356c796963bcba44dcbe261e460bd37385c35 (patch)
tree093c6ede90a77ca6f497aa23c7c13e95f6f2040b /src/client/Model
parent0e85e2815f5bb0ab8b5fb8156bd772b4a7743f13 (diff)
Authorizing refunds (negative payments) but stop authorizing null payments
Diffstat (limited to 'src/client/Model')
-rw-r--r--src/client/Model/View/LoggedIn/Add.elm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/Model/View/LoggedIn/Add.elm b/src/client/Model/View/LoggedIn/Add.elm
index abd8a4d..5598084 100644
--- a/src/client/Model/View/LoggedIn/Add.elm
+++ b/src/client/Model/View/LoggedIn/Add.elm
@@ -38,6 +38,6 @@ validateCost : String -> Translations -> Result String Int
validateCost cost translations =
cost
|> validateNonEmpty (getMessage "CostRequired" translations)
- |> flip Result.andThen (validateNumber (getMessage "CostMustBeNumber" translations) (\number -> number >= 0))
+ |> flip Result.andThen (validateNumber (getMessage "CostMustBeNonNullNumber" translations) ((/=) 0))
type Frequency = Punctual | Monthly