type alias PostResponse = (Http.Response, Int)
type alias Model = { error : String , response: String } type Msg = CreateSeat | PostSucceed PostResponse | PostFail Http.Error update : Msg -> Model -> (Model, Cmd Msg) update msg model = case msg of CreateSeat -> (model, postCommand ) PostSucceed response -> ( { model | response = (toString response) }, Cmd.none ) PostFail errorMessage -> ( { model | error = (toString errorMessage) }, Cmd.none) post' : String -> Http.Body -> Task.Task RawError Http.Response -- post' decoder url body = post' url body = Http.send Http.defaultSettings { verb = "POST" , headers =[ ("Content-type", "application/json")] , url = url , body = body } -- |> Http.fromJson decoder promoteError : RawError -> Error promoteError rawError = case rawError of Http.RawTimeout -> Http.Timeout Http.RawNetworkError -> Http.NetworkError withResponse : JsonDecode.Decoder a -> Task.Task Http.RawError Http.Response -> Task.Task Http.Error (Http.Response, a) withResponse decoder task = let decoded response = Task.map (\val -> (response, val)) (Http.fromJson decoder (Task.succeed response)) in -- Task.mapError promoteError task `Task.andThen` decoded Task.mapError promoteError task `Task.andThen` decoded fakeDecoder : JsonDecode.Decoder Int fakeDecoder = "fakeInt" := ( JsonDecode.int ) postCommand : Cmd Msg postCommand = let body = Http.string """{"seat":{"seat_no": 100, "occupied": true}}""" url = "http://localhost:4000/api/seats" in post' url body |> withResponse fakeDecoder |> Task.perform PostFail PostSucceed HOWEVER I just get the value field of the response and nothing else UnexpectedPayload "Expecting an object with a field named `fakeInt` but instead got: {\"data\":{\"seatNo\":100,\"occupied\":true,\"id\":67}}" What's wrong? -- 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.