From 984356c796963bcba44dcbe261e460bd37385c35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 9 Sep 2015 21:35:29 +0200
Subject: Authorizing refunds (negative payments) but stop authorizing null
 payments

---
 src/client/Model/View/LoggedIn/Add.elm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/client/Model/View')

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
-- 
cgit v1.2.3