, div [ style "font-size" "12em" ] [ text (viewCard model.card) ]
-- Press a button to draw a random card.
--
-- Dependencies:
-- elm install elm/random
import Browser
import Html exposing (..)
import Html.Attributes exposing (style)
import Html.Events exposing (..)
import Random
-- MAIN
main =
Browser.element
{ init = init
, update = update
, subscriptions = subscriptions
, view = view
}
-- MODEL
type alias Model =
{ card : Card
init : () -> (Model, Cmd Msg)
init _ =
( Model Three
, Cmd.none
)
type Card
= Ace
| Two
| Three
| Four
| Five
| Six