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/ServerCommunication.elm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'src/client/elm/ServerCommunication.elm')

diff --git a/src/client/elm/ServerCommunication.elm b/src/client/elm/ServerCommunication.elm
index bc8d59f..1cabda5 100644
--- a/src/client/elm/ServerCommunication.elm
+++ b/src/client/elm/ServerCommunication.elm
@@ -33,15 +33,10 @@ sendRequest communication =
       post ("/signIn?assertion=" ++ assertion)
         |> flip Task.andThen (always initViewAction)
 
-    AddPayment name cost ->
-      post (addPaymentURL name cost Punctual)
+    AddPayment name cost frequency ->
+      post (addPaymentURL name cost frequency)
         |> flip Task.andThen (decodeHttpValue <| "id" := paymentIdDecoder)
-        |> Task.map (\paymentId -> (U.UpdateLoggedIn (UL.AddPayment paymentId name cost)))
-
-    AddMonthlyPayment name cost ->
-      post (addPaymentURL name cost Monthly)
-        |> flip Task.andThen (decodeHttpValue <| "id" := paymentIdDecoder)
-        |> Task.map (\id -> U.UpdateLoggedIn (UL.AddMonthlyPayment id name cost))
+        |> Task.map (\paymentId -> (U.UpdateLoggedIn (UL.AddPayment paymentId name cost frequency)))
 
     DeletePayment payment currentPage ->
       post (deletePaymentURL payment.id)
-- 
cgit v1.2.3