diff options
| author | Joris | 2016-06-13 00:08:51 +0200 |
|---|---|---|
| committer | Joris | 2016-06-13 00:08:51 +0200 |
| commit | c43d8f886d48ca3d58f1614f1eddfe374081f3db (patch) | |
| tree | 99ef077284bb757240ea7845b8fe8696a8ad394b /src/client/elm/LoggedIn/Income | |
| parent | 6a0c5087f716ed6c876a666db6573491bfd3e094 (diff) | |
| download | budget-c43d8f886d48ca3d58f1614f1eddfe374081f3db.tar.gz budget-c43d8f886d48ca3d58f1614f1eddfe374081f3db.tar.bz2 budget-c43d8f886d48ca3d58f1614f1eddfe374081f3db.zip | |
Empty add income form when validated
Diffstat (limited to 'src/client/elm/LoggedIn/Income')
| -rw-r--r-- | src/client/elm/LoggedIn/Income/Model.elm | 6 |
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 |