randomt.elm

import Html exposing (..)
--import Html exposing (div, h1, img, text, button, Html)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Random

main =
    Html.program
    { init = init
    , view = view
    , update = update
    , subscriptions = subscriptions
    }

--MODEL

type alias Model 
    = { dieFace : Int }

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

--UPDATE

type Msg = Roll | NewFace Int

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of 
        Roll -> 
            (model, Random.generate NewFace (Random.int 1 4))
        NewFace newFace ->
            (Model newFace, Cmd.none)

--SUBSCRIPTIONS

subscriptions : Model -> Sub Msg
subscriptions model = Sub.none


--VIEW

view : Model -> Html Msg
view model =
    div []
      [ img [ src ("img/"++(toString model.dieFace)++".jpg") ] []
      , button [ onClick Roll ] [ text "Roll" ] ]