Model.elm

module Component.Requirements.Model exposing (..)

import Focus exposing (Focus)

import ExerciseRenderer

type alias Model a =
  { a
  | hasConfirmedRequirements : Bool
  , requirementsModel : ComponentModel
  }


type alias ComponentModel =
  { exerciseRenderer : ExerciseRenderer.Model
  }


{-| A focus onto the component model
-}
componentModel : Focus { r | requirementsModel : a } a
componentModel =
  Focus.create .requirementsModel (\f r -> { r | requirementsModel = f r.requirementsModel})