From fd86f021e88a00348ac0e03f03d81cb15bf3042b Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 27 Aug 2015 20:36:18 +0200
Subject: Server payament delete

---
 src/client/ServerCommunication.elm | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

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

diff --git a/src/client/ServerCommunication.elm b/src/client/ServerCommunication.elm
index b4b547d..010b3df 100644
--- a/src/client/ServerCommunication.elm
+++ b/src/client/ServerCommunication.elm
@@ -11,6 +11,7 @@ import Json.Decode exposing (..)
 import Date
 
 import Model.Message exposing (messageDecoder)
+import Model.Payment exposing (PaymentId)
 
 import Update as U
 import Update.SignIn exposing (..)
@@ -20,6 +21,7 @@ type Communication =
   NoCommunication
   | SignIn String
   | AddPayment String Int
+  | DeletePayment PaymentId
   | SignOut
 
 serverCommunications : Signal.Mailbox Communication
@@ -40,26 +42,21 @@ getRequest communication =
     NoCommunication ->
       Nothing
     SignIn login ->
-      Just
-        { verb = "post"
-        , headers = []
-        , url = "/signIn?login=" ++ login
-        , body = Http.empty
-        }
+      Just (simplePost ("/signIn?login=" ++ login))
     AddPayment name cost ->
-      Just
-        { verb = "post"
-        , headers = []
-        , url = "/payment/add?name=" ++ name ++ "&cost=" ++ (toString cost)
-        , body = Http.empty
-        }
+      Just (simplePost ("/payment/add?name=" ++ name ++ "&cost=" ++ (toString cost)))
+    DeletePayment paymentId ->
+      Just (simplePost ("payment/delete?id=" ++ paymentId))
     SignOut ->
-      Just
-        { verb = "post"
-        , headers = []
-        , url = "/signOut"
-        , body = Http.empty
-        }
+      Just (simplePost  "/signout")
+
+simplePost : String -> Http.Request
+simplePost url =
+  { verb = "post"
+  , headers = []
+  , url = url
+  , body = Http.empty
+  }
 
 communicationToAction : Communication -> Http.Response -> U.Action
 communicationToAction communication response =
@@ -74,6 +71,8 @@ communicationToAction communication response =
           decodeResponse
             response
             (\id -> U.UpdatePayment (UP.AddPayment id name cost))
+        DeletePayment id ->
+          U.UpdatePayment (UP.Remove id)
         SignOut ->
           U.GoSignInView
     else
-- 
cgit v1.2.3