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/LoggedIn/AddPayment.elm')

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