Add an editable date field for punctual payment creation

1 files changed, 10 insertions, 10 deletions

diff --git a/src/client/elm/LoggedIn/Update.elm b/src/client/elm/LoggedIn/Update.elm
index 48d87f7..1f09271 100644
--- a/src/client/elm/LoggedIn/Update.elm
+++ b/src/client/elm/LoggedIn/Update.elm
@@ -58,9 +58,9 @@ update model msg loggedIn =
               , Cmd.map LoggedInMsg.IncomeMsg cmd
               )
 
-        LoggedInMsg.AddPayment name cost frequency ->
+        LoggedInMsg.AddPayment name cost date frequency ->
           ( loggedIn
-          , Server.addPayment name cost frequency
+          , Server.createPayment name cost date frequency
               |> Task.perform
                    (\err ->
                      case err of
@@ -69,15 +69,15 @@ update model msg loggedIn =
                        _ ->
                          LoggedInMsg.NoOp
                    )
-                   (\paymentId -> LoggedInMsg.ValidateAddPayment paymentId name cost frequency)
+                   (\paymentId -> LoggedInMsg.ValidateAddPayment paymentId name cost date frequency)
           )
 
-        LoggedInMsg.ValidateAddPayment paymentId name cost frequency ->
+        LoggedInMsg.ValidateAddPayment paymentId name cost date frequency ->
           update model (LoggedInMsg.HomeMsg <| HomeMsg.SearchMsg (Form.Reset (HomeModel.searchInitial frequency))) loggedIn
             :> update model (LoggedInMsg.HomeMsg <| HomeMsg.SearchMsg Form.Submit)
             :> update model (LoggedInMsg.HomeMsg <| HomeMsg.UpdatePage 1)
             :> (\loggedIn ->
-                 let newPayment = Payment paymentId (Date.fromTime model.currentTime) name cost loggedIn.me frequency
+                 let newPayment = Payment paymentId name cost date loggedIn.me frequency
                  in  ( { loggedIn | payments = newPayment :: loggedIn.payments }
                      , Cmd.none
                      )
@@ -115,16 +115,16 @@ update model msg loggedIn =
                   , Cmd.none
                   )
 
-        LoggedInMsg.AddIncome time amount ->
+        LoggedInMsg.AddIncome amount date ->
           ( loggedIn
-          , Server.addIncome time amount
+          , Server.createIncome amount date
               |> Task.perform
                    (always LoggedInMsg.NoOp)
-                   (\incomeId -> (LoggedInMsg.ValidateAddIncome incomeId time amount))
+                   (\incomeId -> (LoggedInMsg.ValidateAddIncome incomeId amount date))
           )
 
-        LoggedInMsg.ValidateAddIncome incomeId time amount ->
-          let newIncome = { userId = loggedIn.me, time = time, amount = amount }
+        LoggedInMsg.ValidateAddIncome incomeId amount date ->
+          let newIncome = { userId = loggedIn.me, amount = amount, time = Date.toTime date }
               loggedInIncome = loggedIn.income
           in  ( { loggedIn
                 | incomes = Dict.insert incomeId newIncome loggedIn.incomes