Roll to decide lunch spot

random-number.elm

@@ -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" ]