diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Update.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Update.elm | 10 |
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 ) |