[elm-discuss] Re: http.post gives BadResponse 415 "Unsupported Media Type"

[danneu]

You can use `Http.send` with a custom request object to set arbitrary 
headers.

Here's an example that send an application/json POST request.

judgeImage : Judgement -> Image -> Cmd Msg
judgeImage judgement image =
  let
    url = "http://localhost:3000/id/"; ++ (toString image.id) ++ "/judge"
    body = 
      case judgement of
        Keep -> Http.string "KEEP"
        Delete -> Http.string "DELETE"
        Fave -> Http.string "FAVE"
    request : Http.Request
    request = 
      { verb = "POST"
      , headers = [ ("Content-Type", "application/json") ]
      , url = url
      , body = body
      }
  in
    Task.perform
        JudgeFail
        (\_ -> JudgeSucceed judgement image)
        (Http.send Http.defaultSettings request)

-- 
You received this message because you are subscribed to the Google Groups "Elm 
Discuss" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to elm-discuss+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.