aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Income/Model.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Income/Model.elm')
-rw-r--r--src/client/elm/LoggedIn/Income/Model.elm6
1 files changed, 5 insertions, 1 deletions
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