From fc9a3ca6a5226f78a3a0ec51af3d8d287ccb2e1b Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 2 Jan 2016 22:45:20 +0100 Subject: Merge deletePayment with deleteMonthlyPayment --- src/client/elm/Model/Action/LoggedInAction.elm | 7 +++---- src/client/elm/Model/Action/MonthlyAction.elm | 4 ++-- 2 files changed, 5 insertions(+), 6 deletions(-) (limited to 'src/client/elm/Model/Action') diff --git a/src/client/elm/Model/Action/LoggedInAction.elm b/src/client/elm/Model/Action/LoggedInAction.elm index 00e0a3e..aaf3c7f 100644 --- a/src/client/elm/Model/Action/LoggedInAction.elm +++ b/src/client/elm/Model/Action/LoggedInAction.elm @@ -2,18 +2,17 @@ module Model.Action.LoggedInAction ( LoggedInAction(..) ) where -import Model.Payment exposing (Payments, Payment, PaymentId) +import Model.Payment exposing (Payments, Payment, PaymentId, PaymentFrequency) import Model.Action.MonthlyAction exposing (MonthlyAction) import Model.Action.AccountAction exposing (AccountAction) import Model.Action.AddPaymentAction exposing (AddPaymentAction) -import Model.View.LoggedIn.AddPayment exposing (Frequency) type LoggedInAction = UpdateAdd AddPaymentAction | UpdatePayments Payments - | AddPayment PaymentId String Int Frequency + | AddPayment PaymentId String Int PaymentFrequency + | DeletePayment Payment PaymentFrequency | ToggleEdit PaymentId - | DeletePayment Payment | UpdatePage Int | UpdateMonthly MonthlyAction | UpdateAccount AccountAction diff --git a/src/client/elm/Model/Action/MonthlyAction.elm b/src/client/elm/Model/Action/MonthlyAction.elm index d985ccc..c2de3e5 100644 --- a/src/client/elm/Model/Action/MonthlyAction.elm +++ b/src/client/elm/Model/Action/MonthlyAction.elm @@ -2,9 +2,9 @@ module Model.Action.MonthlyAction ( MonthlyAction(..) ) where -import Model.Payment exposing (Payment, PaymentId) +import Model.Payment exposing (Payment) type MonthlyAction = ToggleDetail | AddPayment Payment - | DeletePayment PaymentId + | DeletePayment Payment -- cgit v1.2.3