Design income form

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
               )