From edca79a7e2bfed1a08de780cc6ab7eac430ef950 Mon Sep 17 00:00:00 2001 From: Joris Date: Tue, 5 Apr 2016 13:39:48 +0200 Subject: Add a statistics empty page --- src/client/elm/LoggedIn/Update.elm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/client/elm/LoggedIn/Update.elm') 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 -> -- cgit v1.2.3