From 25d15aacb940c2a19cae3b2e3d8d3ebd1972be02 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 2 Jan 2016 22:19:40 +0100 Subject: Merge AddPayment and AddMonthlyPayment --- src/client/elm/View/LoggedIn/AddPayment.elm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'src/client/elm/View') diff --git a/src/client/elm/View/LoggedIn/AddPayment.elm b/src/client/elm/View/LoggedIn/AddPayment.elm index 0fbe28e..cbc93a1 100644 --- a/src/client/elm/View/LoggedIn/AddPayment.elm +++ b/src/client/elm/View/LoggedIn/AddPayment.elm @@ -31,11 +31,7 @@ addPayment address model loggedInView = H.form [ case (validateName loggedInView.add.name model.translations, validateCost loggedInView.add.cost model.translations) of (Ok name, Ok cost) -> - let action = - case loggedInView.add.frequency of - Punctual -> Communication.AddPayment name cost - Monthly -> Communication.AddMonthlyPayment name cost - in onSubmitPrevDefault address (ServerCommunication action) + onSubmitPrevDefault address (ServerCommunication (Communication.AddPayment name cost loggedInView.add.frequency)) (resName, resCost) -> onSubmitPrevDefault address (UpdateLoggedIn <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost)) , class "addPayment" -- cgit v1.2.3