Merge AddPayment and AddMonthlyPayment

1 files changed, 3 insertions, 8 deletions

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)