diff options
| author | Joris | 2016-06-23 23:43:23 +0200 |
|---|---|---|
| committer | Joris | 2016-06-23 23:43:23 +0200 |
| commit | 4ce4de89a5400b0d8b9cddaa2922901a081fdaaa (patch) | |
| tree | b65e9ef809c2ec7608101563eb3378eaeeddf12b /src/client/elm/Server.elm | |
| parent | 36a90770ebeb9bd99e136bfe035fdda5dfabc304 (diff) | |
| download | budget-4ce4de89a5400b0d8b9cddaa2922901a081fdaaa.tar.gz budget-4ce4de89a5400b0d8b9cddaa2922901a081fdaaa.tar.bz2 budget-4ce4de89a5400b0d8b9cddaa2922901a081fdaaa.zip | |
Use a dialog to add a payment
Diffstat (limited to 'src/client/elm/Server.elm')
| -rw-r--r-- | src/client/elm/Server.elm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/client/elm/Server.elm b/src/client/elm/Server.elm index dc47007..f3ed949 100644 --- a/src/client/elm/Server.elm +++ b/src/client/elm/Server.elm @@ -28,9 +28,9 @@ signIn email = post ("/signIn?email=" ++ email) |> Task.map (always ()) -addPayment : String -> String -> Frequency -> Task Http.Error PaymentId +addPayment : String -> Int -> Frequency -> Task Http.Error PaymentId addPayment name cost frequency = - post ("/payment/add?name=" ++ name ++ "&cost=" ++ cost ++ "&frequency=" ++ (toString frequency)) + post ("/payment/add?name=" ++ name ++ "&cost=" ++ (toString cost) ++ "&frequency=" ++ (toString frequency)) |> flip Task.andThen (decodeHttpValue <| "id" := paymentIdDecoder) deletePayment : PaymentId -> Task Http.Error () |