change withHeader signature

lukewestby · Feb 29, 2016 · a57f8cb · a57f8cb
1 parent 4d401ae
commit a57f8cb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/README.md b/README.md
@@ -44,7 +44,7 @@ addItem : String -> Task (HttpExtra.Error String) (HttpExtra.Response (List Stri
 addItem item =
   HttpExtra.post "http://example.com/api/items"
     |> withBody (Http.string "{ \"item\": \"" ++ item ++ "\" }")
-    |> withHeader ("Content-Type", "application/json")
+    |> withHeader "Content-Type" "application/json"
     |> withTimeout (10 * Time.second)
     |> withCredentials
     |> send (jsonReader itemsDecoder) stringReader

diff --git a/src/Http/Extra.elm b/src/Http/Extra.elm
@@ -143,9 +143,9 @@ delete =
     get "https://example.com/api/items/1"
       |> withHeader ("Content-Type", "application/json")
 -}
-withHeader : (String, String) -> RequestBuilder -> RequestBuilder
-withHeader header =
-  mapRequest <| \request -> { request | headers = header :: request.headers }
+withHeader : String -> String -> RequestBuilder -> RequestBuilder
+withHeader key value =
+  mapRequest <| \request -> { request | headers = (key, value) :: request.headers }
 
 
 {-| Add many headers to a request