From 965c0f57875e27fd09df2fc72487f4651addb79b Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Fri, 14 Aug 2015 17:43:10 +0200
Subject: Cost must not be negative

---
 src/client/Utils/Validation.elm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/client/Utils/Validation.elm')

diff --git a/src/client/Utils/Validation.elm b/src/client/Utils/Validation.elm
index 0c1773e..b9bccb3 100644
--- a/src/client/Utils/Validation.elm
+++ b/src/client/Utils/Validation.elm
@@ -12,10 +12,12 @@ validateNonEmpty message str =
    then Err message
    else Ok str
 
-validateNumber : String -> String -> Result String Int
-validateNumber message str =
+validateNumber : String -> (Int -> Bool) -> String -> Result String Int
+validateNumber message numberForm str =
   case readInt str of
     Just number ->
-      Ok number
+      if numberForm number
+        then Ok number
+        else Err message
     Nothing ->
       Err message
-- 
cgit v1.2.3