SSCCE for elm-lang/http#4

Main.elm

module Main exposing (..)

import Html exposing (program, text, Html)
import Json.Decode exposing (succeed)
import Http


type alias Model =
    Int


type Msg
    = Thingy (Result Http.Error String)


main : Program Never Model Msg
main =
    program { init = init, view = view, update = update, subscriptions = always Sub.none }


init : ( Model, Cmd Msg )
init =
    0 ! [ post ]


view : Model -> Html Msg
view model =
    text ""


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    model ! []


post : Cmd Msg
post =
    let
        body =
            Http.multipartBody [ Http.stringPart "foo" "bar" ]
    in
        Http.send Thingy (Http.post "https://slack.com/api/rtm.start" body (succeed ""))