diff options
author | Joris | 2016-06-12 23:54:17 +0200 |
---|---|---|
committer | Joris | 2016-06-12 23:54:17 +0200 |
commit | 6a0c5087f716ed6c876a666db6573491bfd3e094 (patch) | |
tree | bf439109143c7a1749c2661fc8b805b83a993027 /src/client/elm/Utils/Http.elm | |
parent | 38896af4281d2e191cbde15836a23e4c0274fff6 (diff) |
Design income form
Diffstat (limited to 'src/client/elm/Utils/Http.elm')
-rw-r--r-- | src/client/elm/Utils/Http.elm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/client/elm/Utils/Http.elm b/src/client/elm/Utils/Http.elm index 97db053..9bcfad7 100644 --- a/src/client/elm/Utils/Http.elm +++ b/src/client/elm/Utils/Http.elm @@ -1,5 +1,6 @@ module Utils.Http exposing ( post + , postWithBody , delete , decodeHttpValue , errorKey @@ -10,17 +11,20 @@ import Task exposing (..) import Json.Decode as Json exposing (Decoder) post : String -> Task Error Value -post = request "POST" +post url = postWithBody url empty + +postWithBody : String -> Body -> Task Error Value +postWithBody = request "POST" delete : String -> Task Error Value -delete = request "DELETE" +delete url = request "DELETE" url empty -request : String -> String -> Task Error Value -request method url = +request : String -> String -> Body -> Task Error Value +request method url body = { verb = method , headers = [] , url = url - , body = empty + , body = body } |> Http.send defaultSettings |> mapError promoteError |