boilerplate.elm

port module Main exposing (..)

import Html exposing (..)
import Html.Events exposing (..)


main =
    program
        { init = init
        , view = view
        , update = update
        , subscriptions = \_ -> Sub.none
        }


type alias Model =
    { dieFace : Int
    }


view : Model -> Html Msg
view model =
    div []
        [ h1 [] [ text (toString model.dieFace) ]
        , button [ onClick Roll ] [ text "Roll" ]
        ]


type Msg
    = Roll


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Roll ->
            ( model, Cmd.none )


init : ( Model, Cmd Msg )
init =
    ( Model 1, Cmd.none )