diff options
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) |