diff options
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 () |