Shows how to perform a Task when the Success-Handler does not need any payload (empty tuple -> unit)

Task Basics

-- Check out: http://elm-community.github.io/elm-faq/#what-does--mean-1

module Main exposing (..)

import Html exposing (..)
import Html.App as App exposing (..)
import Task exposing (..)


type alias Model =
    { result : String }


type Msg
    = Error String
    | Success ()


execute : String -> Cmd Msg
execute str =
    Task.perform Error Success (Task.fail str)


init : ( Model, Cmd Msg )
init =
    ( Model "", execute "noooo" )


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Error str ->
            ( { model | result = str }, Cmd.none )

        Success () ->
            ( { model | result = "Too sexy for my exclamation mark" }, Cmd.none )


view : Model -> Html Msg
view model =
    div [] [ Html.text model.result ]


main : Program Never
main =
    App.program
        { init = init
        , view = view
        , update = update
        , subscriptions = (\_ -> Sub.none)
        }