diff options
| author | Joris | 2016-04-04 01:27:36 +0200 |
|---|---|---|
| committer | Joris | 2016-04-04 01:27:36 +0200 |
| commit | 8cd63a64abafe21378c35c2489d49f24c9ece3c9 (patch) | |
| tree | 541145481d1492f3e388002d931cb3f8fec0acb2 /src/client/elm/Utils/Http.elm | |
| parent | 01e4ce0fa7c369996ec4ef3a033d16d6fa0eb715 (diff) | |
| download | budget-8cd63a64abafe21378c35c2489d49f24c9ece3c9.tar.gz budget-8cd63a64abafe21378c35c2489d49f24c9ece3c9.tar.bz2 budget-8cd63a64abafe21378c35c2489d49f24c9ece3c9.zip | |
Add income list CRUD in user page
Diffstat (limited to 'src/client/elm/Utils/Http.elm')
| -rw-r--r-- | src/client/elm/Utils/Http.elm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/client/elm/Utils/Http.elm b/src/client/elm/Utils/Http.elm index bd6e2ac..b394af4 100644 --- a/src/client/elm/Utils/Http.elm +++ b/src/client/elm/Utils/Http.elm @@ -1,5 +1,6 @@ module Utils.Http ( post + , delete , decodeHttpValue , errorKey ) where @@ -9,8 +10,14 @@ import Task exposing (..) import Json.Decode as Json exposing (Decoder) post : String -> Task Error Value -post url = - { verb = "POST" +post = request "POST" + +delete : String -> Task Error Value +delete = request "DELETE" + +request : String -> String -> Task Error Value +request method url = + { verb = method , headers = [] , url = url , body = empty |