aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Update.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Update.elm')
-rw-r--r--src/client/elm/LoggedIn/Update.elm10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/client/elm/LoggedIn/Update.elm b/src/client/elm/LoggedIn/Update.elm
index 564d6fc..6d8869a 100644
--- a/src/client/elm/LoggedIn/Update.elm
+++ b/src/client/elm/LoggedIn/Update.elm
@@ -106,16 +106,16 @@ update model action loggedIn =
, Cmd.none
)
- LoggedInMsg.AddIncome creation amount ->
+ LoggedInMsg.AddIncome time amount ->
( loggedIn
- , Server.addIncome creation amount
+ , Server.addIncome time amount
|> Task.perform
(always LoggedInMsg.NoOp)
- (\incomeId -> (LoggedInMsg.ValidateAddIncome incomeId creation amount))
+ (\incomeId -> (LoggedInMsg.ValidateAddIncome incomeId time amount))
)
- LoggedInMsg.ValidateAddIncome incomeId creation amount ->
- let newIncome = { userId = loggedIn.me, creation = (Date.toTime creation), amount = amount }
+ LoggedInMsg.ValidateAddIncome incomeId time amount ->
+ let newIncome = { userId = loggedIn.me, time = time, amount = amount }
in ( { loggedIn | incomes = Dict.insert incomeId newIncome loggedIn.incomes }
, Cmd.none
)