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/Home | |
| 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/Home')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/AddPayment/Update.elm | 4 | ||||
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Update.elm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/client/elm/LoggedIn/Home/AddPayment/Update.elm b/src/client/elm/LoggedIn/Home/AddPayment/Update.elm index 46b3786..dc1ea57 100644 --- a/src/client/elm/LoggedIn/Home/AddPayment/Update.elm +++ b/src/client/elm/LoggedIn/Home/AddPayment/Update.elm @@ -13,8 +13,8 @@ import Model.Translations exposing (Translations, getMessage) import Model.Payment exposing (Frequency(..)) update : AddPaymentMsg.Msg -> AddPaymentModel.Model -> AddPaymentModel.Model -update action addPayment = - case action of +update msg addPayment = + case msg of AddPaymentMsg.NoOp -> addPayment diff --git a/src/client/elm/LoggedIn/Home/Update.elm b/src/client/elm/LoggedIn/Home/Update.elm index 078036d..af3504a 100644 --- a/src/client/elm/LoggedIn/Home/Update.elm +++ b/src/client/elm/LoggedIn/Home/Update.elm @@ -12,8 +12,8 @@ import LoggedIn.Home.Model as HomeModel import LoggedIn.Home.AddPayment.Update as AddPaymentUpdate update : LoggedData -> HomeMsg.Msg -> HomeModel.Model -> (HomeModel.Model, Cmd HomeMsg.Msg) -update loggedData action homeModel = - case action of +update loggedData msg homeModel = + case msg of HomeMsg.NoOp -> (homeModel, Cmd.none) |