Simple Elm Program

simple-elm-program.elm

type alias Model =
    { videoPlaying : Bool
    , quizState : QuizDataTypeWithQuestionAndAnswerInfo
    }


type Msg
    = PlayVideo VideoId
    | QuizAnswerSelected QuestionId AnswerId


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        PlayVideo videoId ->
            updateForVideoPlaying model videoId

        QuizAnswerSelected questionId answerId ->
            updateForAnswerSelection model questionId answerId