diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Update.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Update.elm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/client/elm/LoggedIn/Update.elm b/src/client/elm/LoggedIn/Update.elm index 4598b27..8330310 100644 --- a/src/client/elm/LoggedIn/Update.elm +++ b/src/client/elm/LoggedIn/Update.elm @@ -23,8 +23,8 @@ import LoggedIn.Model as LoggedInModel import LoggedIn.Home.Action as HomeAction import LoggedIn.Home.Update as HomeUpdate -import LoggedIn.User.Action as UserAction -import LoggedIn.User.Update as UserUpdate +import LoggedIn.Income.Action as IncomeAction +import LoggedIn.Income.Update as IncomeUpdate import LoggedIn.Home.AddPayment.Action as AddPaymentAction import LoggedIn.Home.AddPayment.Update as AddPaymentUpdate @@ -47,11 +47,11 @@ update model action loggedIn = , Effects.map LoggedInAction.HomeAction effects ) - LoggedInAction.UserAction userAction -> - case UserUpdate.update loggedData userAction loggedIn.user of - (user, effects) -> - ( { loggedIn | user = user } - , Effects.map LoggedInAction.UserAction effects + LoggedInAction.IncomeAction incomeAction -> + case IncomeUpdate.update loggedData incomeAction loggedIn.income of + (income, effects) -> + ( { loggedIn | income = income } + , Effects.map LoggedInAction.IncomeAction effects ) LoggedInAction.AddPayment name cost frequency -> |