From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/client/elm/LoggedIn/Income/Model.elm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'src/client/elm/LoggedIn/Income/Model.elm')

diff --git a/src/client/elm/LoggedIn/Income/Model.elm b/src/client/elm/LoggedIn/Income/Model.elm
index cf1bf57..7d852b9 100644
--- a/src/client/elm/LoggedIn/Income/Model.elm
+++ b/src/client/elm/LoggedIn/Income/Model.elm
@@ -3,12 +3,13 @@ module LoggedIn.Income.Model exposing
   , AddIncome
   , init
   , initForm
+  , validation
   )
 
 import Date exposing (Date)
 
 import Form exposing (Form)
-import Form.Validate as Validate exposing (..)
+import Form.Validate as Validate exposing (Validation)
 import Validation
 
 type alias Model =
@@ -26,10 +27,10 @@ init =
   }
 
 initForm : Form String AddIncome
-initForm = Form.initial [] validate
+initForm = Form.initial [] validation
 
-validate : Validation String AddIncome
-validate =
-  form2 AddIncome
-    (get "amount" (int `andThen` (minInt 1)))
-    (get "date" Validation.date)
+validation : Validation String AddIncome
+validation =
+  Validate.map2 AddIncome
+    (Validate.field "amount" (Validate.int |> Validate.andThen (Validate.minInt 1)))
+    (Validate.field "date" Validation.date)
-- 
cgit v1.2.3