From c43d8f886d48ca3d58f1614f1eddfe374081f3db Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Jun 2016 00:08:51 +0200
Subject: Empty add income form when validated

---
 src/client/elm/LoggedIn/Income/Model.elm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(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 873eaf1..4c82ab1 100644
--- a/src/client/elm/LoggedIn/Income/Model.elm
+++ b/src/client/elm/LoggedIn/Income/Model.elm
@@ -2,6 +2,7 @@ module LoggedIn.Income.Model exposing
   ( Model
   , AddIncome
   , init
+  , initForm
   )
 
 import String exposing (toInt, split)
@@ -24,9 +25,12 @@ type alias AddIncome =
 
 init : Model
 init =
-  { addIncome = Form.initial [] validate
+  { addIncome = initForm
   }
 
+initForm : Form String AddIncome
+initForm = Form.initial [] validate
+
 validate : Validation String AddIncome
 validate =
   form2 AddIncome
-- 
cgit v1.2.3