From 6a0c5087f716ed6c876a666db6573491bfd3e094 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 12 Jun 2016 23:54:17 +0200
Subject: Design income form

---
 src/client/elm/LoggedIn/Update.elm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 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 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
               )
-- 
cgit v1.2.3