Adding the payment without reloading the page

1 files changed, 10 insertions, 7 deletions

diff --git a/src/client/ServerCommunication.elm b/src/client/ServerCommunication.elm
index d763e29..ccf63f2 100644
--- a/src/client/ServerCommunication.elm
+++ b/src/client/ServerCommunication.elm
@@ -5,18 +5,21 @@ module ServerCommunication
   ) where
 
 import Signal
-import Task
-import Task exposing (Task)
+import Task as Task exposing (Task)
 import Http
 import Json.Decode exposing (..)
+import Date
+
+import Model.Message exposing (messageDecoder)
 
 import Update as U
 import Update.SignIn exposing (..)
+import Update.Payment as UP
 
 type Communication =
   NoCommunication
   | SignIn String
-  | AddPayment String String
+  | AddPayment String Int
   | SignOut
 
 serverCommunications : Signal.Mailbox Communication
@@ -47,7 +50,7 @@ getRequest communication =
       Just
         { verb = "post"
         , headers = []
-        , url = "/payment/add?name=" ++ name ++ "&cost=" ++ cost
+        , url = "/payment/add?name=" ++ name ++ "&cost=" ++ (toString cost)
         , body = Http.empty
         }
     SignOut ->
@@ -67,8 +70,8 @@ communicationToAction communication response =
           U.NoOp
         SignIn login ->
           U.UpdateSignIn (ValidLogin login)
-        AddPayment _ _ ->
-          U.NoOp
+        AddPayment name cost ->
+          U.UpdatePayment (UP.AddPayment name cost)
         SignOut ->
           U.GoSignInView
     else
@@ -86,7 +89,7 @@ decodeResponse : Http.Response -> (String -> U.Action) -> U.Action
 decodeResponse response responseToAction =
   case response.value of
     Http.Text text ->
-      case decodeString ("message" := string) text of
+      case decodeString messageDecoder text of
         Ok x ->
           responseToAction x
         Err _ ->