Commit a6025cdc authored by zlu's avatar zlu 🤸🏿
Browse files

Roll to decide lunch spot

parent 4f847a69
......@@ -2,6 +2,7 @@ import Html exposing (..)
import Html.Events exposing (onClick)
import Html.App as App
import Random
import Array
main =
App.program
......@@ -22,17 +23,25 @@ update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
Roll ->
(model, Random.generate NewFace (Random.int 1 6))
(model, Random.generate NewFace (Random.int 0 5))
NewFace newFace ->
(Model newFace, Cmd.none)
view : Model -> Html Msg
view model =
div []
[ h1 [] [ Html.text (toString model.dieFace) ]
[ h1 [] [ Html.text (Maybe.withDefault "Cannot decide, roll again" (Array.get model.dieFace choices)) ]
, button [ onClick Roll ] [ Html.text "Roll" ]
]
subscriptions : Model -> Sub Msg
subscriptions model =
Sub.none
choices = Array.fromList [
"Ceara",
"Burger Bros",
"Boamesa",
"Vila Lobos",
"Graveyard Hotdogs",
"Try again" ]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment