--

-- Read how it works:

--   https://guide.elm-lang.org/effects/random.html

--

​

import Browser

import Html exposing (..)

import Html.Events exposing (..)

import Random

​

​

​

-- MAIN

​

​

main =

  Browser.element

    { init = init

    , update = update

    , subscriptions = subscriptions

    , view = view

    }

​

​

​

-- MODEL

​

​

type alias Model =

  { dieFace : Int

  }

​

​

init : () -> (Model, Cmd Msg)

init _ =

  ( Model 1

  , Cmd.none

  )

​

​

​

-- UPDATE

​

​

type Msg

  = Roll

  | NewFace Int

​