diff options
| author | Joris | 2016-06-19 21:18:56 +0200 |
|---|---|---|
| committer | Joris | 2016-06-21 12:49:51 +0200 |
| commit | 36a90770ebeb9bd99e136bfe035fdda5dfabc304 (patch) | |
| tree | 42b605108f4b8b731fecd65b028006aa41399f40 /src/client/elm/LoggedIn/Income/Update.elm | |
| parent | fb5629d7f705b7e80dcf1852da58d2864c2b0d25 (diff) | |
| download | budget-36a90770ebeb9bd99e136bfe035fdda5dfabc304.tar.gz budget-36a90770ebeb9bd99e136bfe035fdda5dfabc304.tar.bz2 budget-36a90770ebeb9bd99e136bfe035fdda5dfabc304.zip | |
Add a dialog to confirm income deletion
Diffstat (limited to 'src/client/elm/LoggedIn/Income/Update.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/Income/Update.elm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/client/elm/LoggedIn/Income/Update.elm b/src/client/elm/LoggedIn/Income/Update.elm index 74920f3..8fa47fc 100644 --- a/src/client/elm/LoggedIn/Income/Update.elm +++ b/src/client/elm/LoggedIn/Income/Update.elm @@ -10,8 +10,8 @@ import LoggedIn.Income.Model as IncomeModel import LoggedIn.Income.Msg as IncomeMsg update : LoggedData -> IncomeMsg.Msg -> IncomeModel.Model -> (IncomeModel.Model, Cmd IncomeMsg.Msg) -update loggedData action model = - case action of +update loggedData msg model = + case msg of IncomeMsg.NoOp -> ( model @@ -22,3 +22,8 @@ update loggedData action model = ( { model | addIncome = Form.update formMsg model.addIncome } , Cmd.none ) + + IncomeMsg.ToggleTest -> + ( { model | test = not model.test } + , Cmd.none + ) |