module MoreRandom exposing (main)

import RandomNumbersUI
import Random


main : Program Flags Model Msg
main =
  RandomNumbersUI.makeElement
    (always (initModel, Cmd.none)) update (MouseClick, Reset, Noop) []


type alias Flags = ()

type Msg = Noop | Reset | MouseClick | RandomNumber Int

type alias Model =
  { randomNumbers: List Int }

initModel =
  { randomNumbers = [] }

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
  case msg of
    Noop ->
      (model, Cmd.none)
    Reset ->
      (initModel, Cmd.none)
    MouseClick ->
      (model, Random.generate RandomNumber (Random.int 1 10))
    RandomNumber i ->
      ({ randomNumbers = i :: model.randomNumbers }, Cmd.none)