From ee3027b53aad38178f4945c459a94489f4997507 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Oct 2015 21:15:15 +0200
Subject: Do not authorize negative incomes

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

(limited to 'src/client')

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