Generate restaurant picker

rand_restaurant.elm

+import Html exposing (..)
+import Html.Events exposing (onClick)
+import Html.App as App
+import Random
+import Array
+
+main =
+  App.program
+    { init = init,
+      view = view,
+      update = update,
+      subscriptions = subscriptions
+    }
+
+type alias Model = { dieFace : Int }
+type Msg = Roll | NewFace Int
+
+init : (Model, Cmd Msg)
+init = 
+  (Model 1, Cmd.none)
+
+update : Msg -> Model -> (Model, Cmd Msg)
+update msg model =
+  case msg of
+    Roll ->
+      (model, Random.generate NewFace (Random.int 0 (Array.length choices)))
+    NewFace newFace ->
+      (Model newFace, Cmd.none)
+
+view : Model -> Html Msg
+view model =
+  div []
+  [ 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" ]